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u More Amazing 
^ Games 

^ Gregg Keizer, Editor 


For arcade-game speed on the Commodore 64, nothing beats 
machine language. 

Machine language (ML) is the native "tongue" of any 
computer, and the 64 is no exception. The l's and 0's (ons and 
offs) of machine language, though, are a bit more difficult to 
work with than the English-style syntax of a computer lan¬ 
guage like BASIC. To write an ML game, you have to know 
what you're doing. 

The authors of these seven machine language games for 
the Commodore 64 (and 128 running in 64 mode) know their 
stuff. First (and most importantly), the games are fun to play. 
But what makes them stand out, what makes them so impres¬ 
sive, is their length. Since they all appeared originally in 
COMPUTE! magazine or COMPUTERS Gazette, they had to be 
short enough to publish—not so long that people took one 
look and refused to type them in. The longest game, "Eagles 
and Gators," is just over 5K long. That's considerably shorter 
than most commercial games. 

Consider the length of these seven games and they're 
simply amazing. 

Play Them All 

You'll find a variety of games in COMPUTERS More Machine 
LJ Language Games for the Commodore 64. Much like those found 

in the first such book (COMPUTERS Machine Language Games 
i_J for the Commodore 64), the seven arcade games here are as 

challenging (and often as frantic) as we can make them. There 
Lj are enough things going blip and zip to satisfy any gamester. 

Space Arena puts two players in a futuristic arena where 
LJ spaceships maneuver and fire while dodging sluggish aster¬ 

oids. Shove your opponent into a hunk of slow-moving rock 
LJ and iron to win. The victor decides the fate of the galaxy. 

Saloon Shootout lets you blast mugs, plink at running 

Lj 
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mice, gun down bad guys, and plug playing cards. You've got 
a gun in your hand, plenty of bullets, and only so much time 
in this entertaining arcade game for shootists of all ages. 

Prisonball is a two-player hybrid—it combines the best 
elements from the classic computer arcade games, Breakout 
and Pong. Knock out as many bricks as possible—more than 
your opponent does, of course—before time runs out. In this 
game, fortunes turn as fast as your paddles. 

Q-Bird makes you responsible for a defenseless baby 
bluebird who's the entree for a variety of hungry predators. 
Hop and jump on the grid to advance to the next level, but be 
sure there's not a mouth waiting for you when you land. 

Bump-N-Run may make friends into enemies as you and 
an opponent catch, steal, and shoot a ball in this tumble-of- 
fun game of bumps and bashes. 

Ringside Karate may not provide the black belt, but it 
has everything else you need to kick, jab, punch, and block 
your way to the title of World Karate Expert. A quick-reflex 
two-player game that tests your joystick control. 

Eagles and Gators features a split screen, 16 sprites 
(amazing!), and clever animation. Two players turn a flock of 
eagles and a ton of turtles into clamping, shoving opponents 
in this unique game. 

Easy Entry 

If you had to use an assembler (see Chapter 3) to enter these 
games, you'd probably give up before you started. Fortunately, 
you can use our "MLX" machine language entry program in¬ 
stead. MLX is a program in its own right, one that checks your 
typing and lets you know—almost immediately—that you've 
made a mistake. Typing in machine language programs with 
MLX guarantees that you'll have a working copy of the game 
the first time. 

All seven games in COMPUTEl’s More Machine Language 
Games for the Commodore 64 are listed in MLX format. Refer to 
Chapter 2 for the MLX program, its instructions, and each 
game's MLX listing and individual directions. 

From the Source 

Source code is the original code of a program. In the case of 
machine language games like these seven, the source code was 
written with an assembler (in many cases, the PAL assembler 
was originally used). If you know how to read it (even if you 
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don't know how to write it), source code can be illuminating. 

It shows you exactly how the program was put together, what 
routines were used, and which tricky techniques were called 
into play. 

Source code is hard to come by. Many programmers 
won't show it to their best friends. 

That makes this book even more unusual, because 
we've published the complete assembled source code for 
each game. 

If you do dive into machine language programming, then 
you'll want to be sure to turn to Chapter 3. You'll undoubt¬ 
edly find programming methods that will make your own cre¬ 
ations run faster, look better, and play easier. 

Grab the Joystick 

No matter what you use this book for—to simply play the 
seven games or pick apart the source code— COMPUTEI's More 
Machine Language Games for the Commodore 64 will satisfy 
even the most experienced player or programmer. Some seri¬ 
ous fun is waiting for you either way. 


All the programs in this book are available in disk form. 
Each game's object code (what you run, and what you'd 
normally create by typing in the MLX listing in Chapter 
2) and complete source code (in single-statement-line PAL 
format) is included on the disk. You can order this $12.95 
disk only through COMPUTE! Publications. Call toll-free 
1-800-367-6767 (in NY 1-212-887-8525). 
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Space Arena 


Bryan Files 
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This engaging two-player game, which could 
have been titled “Indirect Aggression” for its 
unique design, features superior graphics and 
playability. Two joysticks required. 


In a distant galaxy, a fierce war between two great empires 
has reached a stalemate. The cost to both civilizations has 
been high with no gain to either side. The stalemate has 
forced the two sides to agree to settle the dispute in a con¬ 
trolled environment—a space arena. 

Enclosed in this arena are four asteroids and a ship repre¬ 
senting each side. Both ships are equipped with photon blast¬ 
ers, which have the ability to push objects without damaging 
them. A ship is destroyed only by a collision with an asteroid. 

Let the Game Begin 

To load “Space Arena," type 

LOAD "filename",8,1 (for disk) 

LOAD "filename",1,1 (for tape) 

where filename is the name you used to save the program. 
Press RETURN; then type 

SYS 49152 

and press RETURN again. 

You'll need two joysticks (and two players) to play Space 
Arena. Plug a joystick into each of the 64's two ports. 

Rotate and Fire 

Movement in Space Arena is much like that in the classic ar¬ 
cade game Asteroid #?Rotate your ship by moving the joystick 
left or right. Push the joystick forward to activate the ship's 
thrusters, and press the fire button to release a photon blast. 
You have no braking thrusters—to slow down, you must turn 
the ship around and thrust in the direction in which you're 
moving. 
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Game options include speed (1-3, where 1 is the slowest 
and 3 the fastest) and time limit (1-5 minutes). 

Points and Strategy 

Victory conditions are simple—score more points than your 
opponent in the time allowed. You get one point each time 
you hit the other ship with a photon blast. If the enemy's ship 
is destroyed by running into an asteroid, you receive 20 
points. 

There are two basic strategies to playing Space Arena. 

You can try to push your opponent into an asteroid, or push 
the asteroids into your opponent. The effect of photon blasts 
on asteroids is much less than on ships because the asteroids 
are heavier. A single photon blast can send a ship flying 
across the screen, especially if the ship has to turn around 
before being able to slow down. 

Typing 

Refer to Chapter 2, page 37, for typing instructions for Space 
Arena and its MLX listing. 

Source Code 

The source code for Space Arena is in Chapter 3, beginning on 
page 137. 



Saloon Shootout 

David Hensley, Jr. and Kevin Mykytyn 


You’ll have your hands full in this action-packed, 
arcade-style game. It’s one of the most 
challenging and graphically charming games 
we’ve published. A joystick is required. 


If you're a sure-shot, dead-eye, trigger-happy gunslinger, 
you'll be well suited to this wild and woolly action game. In 
"Saloon Shootout," the pace is frantic and it never slows up. 
The object of the game is to accumulate the highest number of 
points before time runs out or before you run out of bullets. 

Start Shooting 

To play Saloon Shootout, load the game by typing 

LOAD "filename", 8,1 (for disk) 

LOAD "filename",1,1 (for disk) 

Press RETURN. Now enter 

SYS 10240 

and press RETURN again. 

Plug the joystick into port 2 and you're ready to play. 

Of Mice and Mugs 

There's a lot to contend with in Saloon Shootout. A gun, 
which appears on the bar, is your weapon. It's controlled by 
your joystick. By moving the joystick up and down, you con¬ 
trol the distance your bullet travels. You'll notice the gun bar¬ 
rel shift up and down as you move the joystick. The arrow on 
the right of the screen will help you gauge the distance your 
shot will fire. 

A main objective of the game is to shoot as many mugs as 
you can before they fall off the bar. For every ten mugs you 
shoot, a running mouse appears. Each time you shoot this crit¬ 
ter, you receive a bonus score, and the mouse reverses direc¬ 
tion and speeds up. Every time you hit it, the point total 
escalates, and so does the mouse's speed. (This is where you 
can get a lot of points for those potential high scores.) 
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This may sound pretty easy so far, but your job at the sa¬ 
loon is much more complicated. You must also keep your eye 
on the three windows on the back wall of the saloon. They're 
sometimes opened by a masked desperado who will steal ten 
of your bullets unless you shoot him before he disappears. But 
don't be too hasty: Sometimes good guys appear (the good 
guys smile), and shooting them results in a stiff penalty—100 
points subtracted from your score. 

If your supply of bullets is running low, you can replenish 
them by shooting the cards that appear on top of the player 
piano. However, you must shoot the cards in order: 10, J, Q, 

K, and A. Be careful here—one card hit out of order will re¬ 
shuffle the deck and you'll have to start over. Not so simple, 
is it? 

There are a few features that help to calm your nerves, 
however. If you reach a score of 500, you receive a bonus time 
of 50 seconds. To help you keep track of the time remaining, 
the screen flashes when there are 25 seconds left. As noted 
above, the arrow on the right side of the screen helps make 
sure that those valuable bullets you're shooting aren't wasted. 
And finally, the player piano cranks out ragtime tunes to help 
relieve the tension. To change the tune, shoot one of the white 
keys on the player piano. To turn the music off, shoot a white 
key twice. 


Statistics and Point Totals 

Time 

2 minutes 

Bullets 

35 

Scoring 

Mugs 

10 

Missed mugs 

-5 

Cards 

10 

Back of card 

-10 

Good guy 

-100 

Bad guy 

25 

Mouse 

20,40,60,80,100 


Shootist Strategy 

When the game first runs, you have a few seconds before the 
mugs start to appear. It's wise to use this time to shoot a few 
of the cards (in order, of course) in case your bullets run low 
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during the game. Try to make the mouse appear as many 
times as possible to receive higher scores. When it appears, try 
to shoot it as many times as possible. Unless your bullet count 
is high, it's a good idea to set your sights on the windows as 
they start to open. And remember to keep an eye on your bul¬ 
let supply and the time remaining. 

Typing 

You'll find typing instructions for Saloon Shootout and its 
MLX listing in Chapter 2, page 48. 

Source Code 

Saloon Shootout's source code can be found in Chapter 3, 
page 148. 



Prisonball 

John Scarborough 
Commodore 64 Version by Kevin Mykytyn 


Nearly everyone has played Pong or Breakout, 
two computer-game classics. Prisonball ” creates 
an intense, two-player action game by drawing 
features from both of those games. Requires 
either a pair of paddles or two Joysticks. 


"Prisonball" is a two-player action game that combines the 
best elements from two classic computer games. Pong and 
Breakout. The object of the game is simple—knock out as 
many bricks as you can in the allotted time. 

Start Your Paddles 

Either joysticks or paddles can be used to play Prisonball. (To 
play with paddles, plug a pair of paddles into port 2.) Even 
though the program is written in machine language, load and 
run it as you would an ordinary BASIC program, by typing 

LOAD "filename",8 (for disk) 

LOAD " filename ",1 (for tape) 

and pressing RETURN. Type 

RUN 

and press RETURN again. 

Break to the Center 

The game begins by displaying five colored walls running ver¬ 
tically down the center of the screen. Each player controls two 
paddles located at the left and right sides of the screen. Three 
balls appear at a random location and start bouncing around 
the screen. When a ball is on your side of the screen, move 
one of your paddles into its path to deflect the ball toward the 
walls. You can only hit a ball when it's moving toward your 
paddles (away from the interior Walls). Balls traveling from the 
opposite direction go right through your paddles. If you hap¬ 
pen to miss a ball, it wraps around the screen and appears on 
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the other side, giving your opponent a chance to score. 

At the beginning of the game, all three balls are a neutral 
color. Each time you hit a ball, it changes to the color of your 
paddle. You score whenever a ball of your color hits one of 
the five interior walls. The score depends on which wall you 
hit. The center wall is the hardest to reach, so it yields the 
most points. The two intermediate walls are worth less than 
the center wall. The outermost walls are easiest to hit and 
score the fewest points. 

Time and Points 

The top of the screen displays each player's score and a count¬ 
down timer. Each game lasts three minutes. When the timer 
runs to zero, the game ends and the player with the most 
points wins. The screen border flashes briefly as a warning 
when only 20 seconds remain on the timer. 

Bricks from the center wall are worth 30 points, those 
from the two adjacent walls are worth 20, and the outermost 
bricks each score 10 points. 

Every time a ball hits one of the walls, a brick is knocked 
out of the wall at the point of impact. By aiming your shots 
carefully, you can bore a path through a wall and move a ball 
into the interior space between two walls. When this happens, 
the ball bounces wildly back and forth between the w alls , 
scoring many points in a short time. 

An additional bit of strategy has to do with the redrawing 
of walls. Whenever a wall has been destroyed, it is immedi¬ 
ately redrawn. Some of the highest scores result when you 
trap one or more balls behind a wall when it is redrawn. Since 
the wall is new, the trapped balls may hit it many times 
before they break back out to the exterior. 

Typing 

Look to Chapter 2, page 61, for typing instructions and the 
MLX listing for Prisonball. 

Source Code 

Prisonball's source code can be found in Chapter 3, beginning 
on page 162. 




Q-Bird 

Mike Sedore 


This delightful and colorful arcade-style game 
challenges your character—a defenseless (but 
nimble) baby bluebird—to survive among a crew 
of nasty, hungry enemies. A joystick is required. 


Other birds say you're paranoid, but you're not—everyone 
really is out to get you. You often ask yourself how long a de¬ 
fenseless baby bluebird can hope to survive when a host of 
voracious predators are looking for a meal. If only you could 
leave this place to find a new home. But alas—you're too 
young to fly. The best you can manage is a flapping long 
jump. But you'd better be careful not to jump too far: You 
could fall a long way down. 

Ready to Jump 

Although "Q-Bird" is written in machine language, it can be 
loaded and run like a BASIC program. To play, type 

LOAD "filename ",8 (for disk) 

LOAD "filename",1 (for tape) 

where filename is the name you gave the program. Press 
RETURN; then type 

RUN 

pressing RETURN once more. Plug the joystick into port 2. 

Playing on the Grid 

Q-Bird is played on a 6 X 7 grid. There are 15 levels of play 
from which to choose. As you play, you advance level by 
level by completing grids. A grid is complete when the color 
of each square matches the goal color shown at the bottom of 
the screen. To change the color of a square, simply hop on it. 
You have to jump on each square once in level 1, twice in 
level 2, and so on, up to level 15. A bonus life is awarded 
each time you complete a level. If you reach level 15, you 
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should feel satisfied. It doesn't get any harder than this. But 
don't relax; it doesn't get any easier either. 

You start with five lives. Choose your starting level by 
pushing forward on the joystick. If you pass the level you 
want to play, pull back on the stick to reverse the level 
counter. Press the fire button to begin play. 

To hop, simply move the joystick in the direction you 
want to follow. For a super jump, push the fire button as you 
hop—you'll leap over a square and land on the next. If you 
time it right, you can leap right over your enemies. But be care¬ 
ful not to jump over the side of the grid. That costs one life. 

Press SHIFT-LOCK to pause the game. To restart a game, 
press RUN/STOP-RESTORE. 

Leapin’ Lizards 

Three purple lizards live on the grid. They randomly leap off 
of their tails from square to square, landing on any bluebirds 
careless enough to get in their way. But they're the least of 
your worries. There's a king cobra that relentlessly chases you. 
He's got a hole in his stomach just the size of a baby bluebird. 
If he doesn't get you, then perhaps the low-flying and hungry 
hawk will. And while you're looking out for all of these vil¬ 
lains, try to dodge the runaway balls that roll down the grid. 
Any one of them could turn you into a bluebird pancake in a 
moment. 

Fortunately, you do have an ally. Occasionally, a flashing 
egg appears on a random square. If you hop on it, you mo¬ 
mentarily stun all the grid inhabitants. You can now go any¬ 
where you please without harm. Unfortunately, this doesn't 
last long. When the safe time is nearly through, the bluebird 
begins flashing. All action returns to normal after the third 
flash, so be ready for the frenzy to continue. 

Typing 

Chapter 2, page 67, has the typing instructions and MLX list¬ 
ing for Q-Bird. 

Source Code 

The source code for Q-Bird begins on page 169, Chapter 3. 



Bump-N-Run 

Tim J. Midkiff 


Challenge a friend in this fast-paced, 
action/strategy game for two players. Rapid play 
and smooth movement are its hallmarks. Two 
joysticks are required. 


This two-player action game can be played at two conceptual 
levels: When you first play, it seems to be purely an action 
game—all speed and reflexes—but after you and your oppo¬ 
nent master the basics of the game, you'll discover the impor¬ 
tance of strategy. 

The object of "Bump-N-Run" is to get the ball and shoot 
it into the other player's goal. Of course, your opponent is try¬ 
ing to do the same. 

Begin to Bump 

To load the game, type 

LOAD"BUMP-N-RUN",8,l (for disk) 

LOAD "BUMP-N-RUN",1,1 (for tape) 

and press RETURN (substitute the correct filename for BUMP- 
N-RUN if you saved it to tape or disk with a different name). 
Now type 

SYS 49152 

and press RETURN to begin play. Be sure you have two joy¬ 
sticks plugged in. 

Press RESTORE to exit the game, and enter SYS 49152 
again to replay. 

Bumping and Running 

As with many computer games, the best way to leam Bump- 
N-Run is by playing it. 

The game begins with the ball in the middle of the court 
and each player guarding his or her own goal. The joystick in 
port 1 controls the purple player. The yellow player is con¬ 
trolled by the joystick in port 2. Catch the ball by touching it 
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with your player. Your opponent can then steal the ball by 
bumping into you. The speed of your player and the direction 
in which the player travels are controlled by the joystick. When 
you first push the joystick, you move slowly; keep pushing 
and you'll accelerate. Press the fire button to shoot the ball. 
When the ball is released, you lose your speed, but the ball 
continues on with your previous speed and direction. Make 
sure your shot is accurate, because once you shoot the ball 
you can't catch it again until it bounces off a wall. Remember 
that you can steal the ball at any time simply by bumping 
your opponent. The first player to score 15 goals wins, and 
the game is reset when both players press the fire button. 

Here are a few more details concerning the physics of the 
game. When players collide, their velocities and directions are 
exchanged. Collisions with the walls cause players to bounce 
back. A player may go beyond the walls only if he or she is 
pushed by another player. 

Typing 

Refer to Chapter 2, page 79, for Bump-N-Run's typing instruc¬ 
tions and MLX listing. 

Source Code 

Bump-N-Run's source code starts on page 182, Chapter 3. 




Ringside Karate 

Anthony Bertram 


Go head to head with another playerfor the 
coveted black belt in this outstanding 
commercial-quality, arcade-style game. Two 
joysticks are required. 


As in real karate, skill, speed, and timing are the necessary in¬ 
gredients to play "Ringside Karate." You've got an impressive 
arsenal of kicks, punches, and defensive blocks at your dis¬ 
posal—but then, so does your opponent. 

Kick Away 

The game is long, but much of the sprite and screen DATA 
are repeated numbers, which makes the typing a little easier. 
To load Ringside Karate, type 

LOAD "filename",8,1 (for disk) 

LOAD" filename", 1,1 (for tape) 

and press RETURN. (Filename is the name you used to save 
the program.) 

To start the game, type 

SYS 15490 

and press RETURN again. 

The joystick plugged into port 1 controls the fighter 
dressed in white, while the joystick in port 2 controls the 
fighter in black. 

Hee-Aee! 

Each player controls one fighter with a joystick. Moving the 
joystick and/or pressing the button in various combinations 
delivers different kicks, punches, and defensive blocks. 

It may take some practice to come up with the right of¬ 
fensive move. Keep at it. 

To block, just press the fire button while the joystick is 
pushed in any other direction than the ones outlined in the il- 
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Solid arrows indicate that the joystick button should be pressed. 


lustration. To win, you must score ten knockdowns, each 
worth 100 points. 

Timing is crucial because the fire button must be released 
for a moment before you can make another attack. If you rap¬ 
idly press the button, the fighter won't move and probably 
will be knocked down. Blocking provides a limited defense 
and is best used just before a counterattack or when backing 
up. You'll find the controls much easier to master if you've 
played an arcade karate game. 

When the game is over, a winner is declared, and another 
game may be started by pressing any key. 

Typing 

Typing instructions and the MLX listing for Ringside Karate 
can be found in Chapter 2, page 84. 

Source Code 

Ringside Karate's source code starts on page 188, Chapter 3. ,_ 
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Eagles and 
Gators 

Philip I. Nelson 


Featuring 16 sprites on a split screen, great 
sound effects, and realistic animation, this all 
machine language, two-player action game pits 
creature against creature as each tries to shove 
the other into oblivion. Requires at least 
one joystick. 


"Eagles and Gators," an intense two-player action game, dis¬ 
plays 16 moving sprites at all times—double the normal 
limit—and includes highly realistic animation, too. 

Ready to Swim and Fly 

To play, plug two joysticks into the joystick ports. (See the in¬ 
structions below for playing with only one joystick.) Although 
the program is written in machine language, you load and run 
it just as you would a BASIC program, with 

LOAD " filename ",8 (for disk) 

LOAD "filename”,1 (for tape) 

followed by RUN. 

Eagles and Gators begins with an animated title screen 
which asks whether you want to read the game instructions. 
Press Y to view the instruction screen or N to skip it. Next, 
you're shown the game screen and are prompted to choose 
one of the nine skill levels. If you've never played the game 
before, you'll probably want to press 1 to choose the easiest 
level. 

Flyers Against Swimmers 

When play begins, the screen is split into upper and lower 
color zones—sky-blue for the eight high-flying eagles and 
murky black for the eight gators swimming below. Each player 
controls a group of eight sprites. The game is written to be 
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played with two joysticks, but you can substitute keypresses to _ 

control the gators, normally controlled by joystick 1. Press the n 

CTRL key to move left or the 2 key to move right. The space 

bar serves as a fire button. PI 

Your sprites are in constant, realistic motion, flying or 
swimming up and down in their zones, rebounding when they p 

hit the border between the two worlds. The flashing colored 
sprite in your group is the one controlled by your joystick. To 
switch control to a different sprite, push the joystick left or 
right. 

The goal of the game is to expand your zone and shove 
your opponents off the screen. This is done by convincing 
your creatures to push against the sky/water border. Press the 
fire button just as your flashing eagle or gator bumps the bor¬ 
der, and it “clamps" on and starts to shove. Whenever you 
clamp successfully, your opponent's screen flashes red, and all 
your creatures thrash momentarily with excitement. 

Your zone expands whenever you have more sprites 
pushing than your opponent does. The game ends when one 
side or the other takes over the entire screen. That sounds 
simple, but it takes precise timing to clamp just one sprite. If 
you press the fire button at the wrong time, your sprite moves 
away from the border, regardless of its initial direction. If you 
press the fire button when your flashing sprite's already stuck 
to the border, it bounces back to the farthest end of your zone. 

Your opponent can also unclamp one of your creatures by 
clamping one of his or her own creatures directly across the 
border from yours. The ability to unclamp an opponent's crea¬ 
tures at any time adds an extra element of strategy and makes 
it possible to turn the tables on your opponent even when de¬ 


feat seems almost certain. The game is designed to reward 
concentration and careful play, and to discourage wild tactics 
such as holding the fire button down constantly. At best, 
you'll prevent your creatures from approaching the border. At fl 

worst, you'll inadvertently unclamp those from your side who _ 

are already pushing. I - ! 

When you win a game, the screen clears to your color, 
and a joyful, double-sized sprite from the winning side per- I - ] 

forms a victory dance across the screen. At this point you can 
pick a new skill level for the next round or quit by pressing [~j 

the Q key. After you've exited, the game can be restarted by 
typing SYS 16384 and pressing RETURN. To stop in midplay, ! | 

press RUN/STOP-RESTORE. 

n 


20 



The Games 


U 

U 

u 


u 

u 


Displaying 16 Sprites 

Space doesn't permit a detailed explanation of every routine in 
this program, but you may be curious about how to display 
more than eight sprites at a time, something often mentioned, 
but rarely seen. To understand how it's done, you'll need to 
know a little about raster displays. 

Your TV or monitor makes a picture by scanning its 
screen with a moving electron beam called a raster. This is 
done line by line, from top to bottom, 60 times a second. The 
visible portion of a TV picture is made up of 200 raster lines, 
numbered from 50 at the top through 249 at the bottom. The 
same numbering scheme is used for locating sprites vertically 
on the screen, so raster line 100, for example, matches up with 
sprite vertical location 100. This correspondence between ras¬ 
ter lines and sprite positions greatly simplifies the task of cre¬ 
ating more than the usual number of sprites. 

The Commodore 64 keeps track of the raster's vertical lo¬ 
cation in a special memory location (register) at 53266 
($D012). BASIC is too slow to make much use of it, but ma¬ 
chine language (ML) is fast enough to let us check this register 
repeatedly and monitor the position of the raster beam as it 
scans down the screen. This information is used to create a 
split screen as well as to double the usual number of sprites. 

Split Screens 

To make the two-color split screen, we first establish an arbi¬ 
trary "split" point somewhere near the midpoint of the screen 
(say, at line 100), then repeatedly compare the raster's location 
to that value. When the raster value is less, we know it's 
above the split, so we color the screen cyan to create the sky 
zone. When the raster value is greater, that means it has 
dipped below the split point, so we color the screen black for 
the water zone. Remember, moving downward on the screen 
increases the raster (or sprite) vertical location value. By 
changing the border color along with the screen background 
color, we can make the split extend the full width of the 
screen for heightened realism. 

The same sort of monitoring makes it possible to display 
16 sprites. When the raster's above the split, we display all of 
the 64's 8 sprites at vertical locations in the upper color zone. 
When it drops below the split, we display the same 8 sprites 
at locations in the lower zone. The two sets of sprites are 
never actually displayed at the same time. The program just 
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changes their locations so fast that your eye sees 16 solid fig¬ 
ures, without a trace of flicker. 
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Shadow Registers 

If you stopped at this point, you'd have two identical groups 
of eight sprites—upper and lower—sitting motionless on a 
split screen. Nice, but boring. 

To exploit the effect in a game, we want the two sprite 
groups to look different and move independently. Unfortu¬ 
nately, the Commodore 64 still has only eight sets of sprite 
control registers for handling the sprites' shapes, colors, and so 
on. Remember, we're just flipping the same group of eight 
sprites back and forth at very high speed between different 
vertical locations. Thus, top sprite 1 doesn't just look the same 
as bottom sprite 1—it is the same sprite. 

The minute you change the shape or color of any sprite in 
the upper group, its lower twin immediately follows suit, and 
vice versa. 

What we really need is 16 sets of sprite control registers. 
Commodore didn't design 16 sprites for the 64, but you can 
achieve much the same effect through software. Here's an out¬ 
line of how it's done in this program. 

First, we set aside some free memory to use as “shadow" 
registers in place of the actual sprite control registers. Since 
none of the eagle or gator sprites move horizontally, we don't 
need to duplicate the 8 horizontal position registers. However, 
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every sprite must be able to move freely up or down and 
change its shape and color at any time. Thus, for each group 
of 8 sprites we need 8 registers for vertical position, 8 for 
color, and 8 more to hold shape data pointers. Three sets of 8 
make 24. Double that for the second set of 8 sprites, and you 
now have 48 shadow registers. 

To make each sprite appear in the correct spot, we must 
transfer the contents of each shadow register into the cor¬ 
responding control register at precisely the right instant. When 
the raster beam is in the upper portion of the screen, we'll 
take data from the eagles' set of shadow registers and store it 
in the actual sprite control registers. When the raster creeps 
down below the split, we'll fetch gator data instead and plug 
that into the control registers. 

Of course, it's not necessary to do this on a two-color split 
screen. This particular program changes screen colors at the 
split point to accentuate the division between sides. But in an¬ 
other application, you might prefer to leave out the color¬ 
changing code. The split location is just an invisible reference 
point that tells you when it's time to flip the sprites from one 
zone into the other. 

Coasting on the Interrupt 

Expressed in this simple, schematic form, the job of displaying 
16 sprites sounds quite simple. When the raster beam is above 
the midpoint, make the sprites appear in the upper area. 

When it's below the split, move them down into the lower 
area and give them new shapes and colors. The process is un¬ 
complicated in theory. But don't bother trying to do this in 
BASIC, which is many times too slow to read the raster's posi¬ 
tion accurately. This program uses an interrupt-driven routine 
to manage the 16-sprite effect. Although interrupt handling 
goes beyond the scope of this article, the technique essentially 
wedges our custom sprite display routines into the computer's 
operating system along with its normal hardware-servicing 
routines, which do background tasks such as scanning the 
computer's keyboard. Conveniently, the interrupt-driven rou¬ 
tine is executed 60 times per second, exactly the same fre¬ 
quency at which the screen is redrawn. As a result, the sprite 
display and color split are quite stable. 

The advantage of driving an ML routine on the hardware 
interrupt is that it becomes completely automatic. Sixty times 
every second, the computer executes your custom routine 
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along with its own housekeeping routines. An interrupt-driven 
routine seems to coast along all by itself, without slowing 
down other program events. In effect, we've enhanced the 64 
by adding the ability to display 16 sprites, with the option of a 
two-color split screen. Because the custom routines operate in 
the background, the shadow sprite control registers seem to 
work exactly the way the actual control registers do. We can 
change the color, shape, or position of any of our 16 sprites by 
plugging different values into their shadow control registers. 

To move our border up or down, we just change the value for 
our split point, and everything else follows accordingly. 

The price you pay for these new features is that the 
sprites can't leave their respective zones. If you try to move an 
eagle sprite down into the gator zone, the custom display rou¬ 
tine automatically gives it a gator shape and color, and the sky 
is minus one eagle. The same thing happens in reverse if you 
move a gator into the upper zone. If you move any sprite so 
that it overlaps the border, you get a weird hybrid creature 
with an eagle-shaped upper body and a gator tail. It's easy to 
forget because the shapes look so real, but the 64 still has only 
8 sprites built into hardware. Using similar techniques, it's 
possible to display as many as 64 sprites on the screen at 
once. All you need to do is divide the screen vertically into 
additional zones, add extra shadow registers, and modify the 
display routines to handle them. However, the same general 
rules apply. Each group of sprites is confined to its own verti¬ 
cal zone, and you may not have more than 8 sprites occupy¬ 
ing the same screen raster line. 

Typing 

Refer to Chapter 2, page 99, for the typing instructions and 
MLX listing for Eagles and Gators. 

Source Code 

Eagles and Gators' source code can be found in Chapter 3, 
page 197. 
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MLX 

Machine Language 
Entry Program 

Ottis R. Cowper 


“MLX” is a labor-saving utility that allows almost 
Jail-safe entry of machine language programs. 


Type in and save at least two copies of "MLX" (you'll want to 
use it to enter future Commodore 64 machine language pro¬ 
grams from COMPUTE! magazine, COMPUTEl's Gazette, and 
COMPUTE! books). If you're using a Commodore 128, you 
can still use MLX—you must enter it and any ML programs in 
64 mode, however. 

When you're ready to enter an ML program, load and run 
MLX. It asks you for a starting address and an ending address. 
These addresses appear in the short article accompanying the 
MLX-format listing of each game. You'll find the listings in 
Chapter 2. 

If you're unfamiliar with machine language, the addresses 
(and all other values you enter in MLX) may appear strange. 
Instead of the usual decimal numbers you're accustomed to, 
these numbers are in hexadecimal —a base 16 numbering sys¬ 
tem commonly used by ML programmers. Hexadecimal —hex 
for short—includes the numerals 0-9 and the letters A-F. But 
don't worry—even if you know nothing about ML or hex, you 
should have no trouble using MLX. 

After you enter the starting and ending addresses, you'll 
be offered the option of clearing the workspace. Choose this 
option if you're starting to enter a new listing. If you're con¬ 
tinuing a listing that's partially typed from a previous session, 
don't choose this option. 

A functions menu appears. The first option in the menu is 
ENTER DATA. If you're just starting to type in a program, 
pick this. Press the E key, and type the first number in the 
first line of the program listing. If you've already typed in part 
of a program, type the line number where you left off typing 
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at the end of the previous session (be sure to load the partially 
completed program before you resume entry). In any case, 
make sure the address you enter corresponds to the address of 
a line in the listing you are entering. Otherwise, you'll be un¬ 
able to enter the data correctly. If you press E by mistake, you 
can return to the command menu by pressing RETURN alone 
when asked for the address. (You can get back to the menu 
from most options by pressing RETURN with no other input.) 

Entering a Listing 

Once you're in Enter mode, MLX prints the address for each 
program line for you. You then type in all nine numbers on 
that line, beginning with the first two-digit number after the 
colon (:). Each line represents eight data bytes and a 
checksum. Although an MLX-format listing appears similar to 
the "hex dump" listings from a machine language monitor 
program, the extra checksum number on the end allows MLX 
to check your typing. 

When you enter a line, MLX recalculates the checksum 
from the eight bytes and the address, and compares this value 
with the number from the ninth column. If the values match, 
you'll hear a bell tone, the data will be added to the work¬ 
space area, and the prompt for the next line of data will ap¬ 
pear. But if MLX detects a typing error, you'll hear a low buzz 
and see an error message. The line will then be redisplayed 
for editing. 

Invalid Characters Banned 

Only a few keys are active while you're entering data, so you 
may have to unlearn some habits. You do not type spaces be¬ 
tween the columns; MLX automatically inserts these for you. 
You do not press RETURN after typing the last number in a 
line; MLX automatically enters and checks the line after 
you've typed the last digit. 

Only the numerals 0-9 and the letters A-F can be typed 
in. If you press any other key (with some exceptions noted be¬ 
low), you'll hear a warning buzz. To simplify typing, a keypad 
is available. The keypad—part of the keyboard—is active only 
while you're entering data. Addresses must be entered with 
the normal letter and number keys. The figure below shows 
the keypad configuration. 
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64 MLX Keypad 



MLX checks for transposed characters. If you're supposed 
to type in AO and enter OA instead, MLX will catch your mis¬ 
take. There is one error that can slip past MLX: Because of the 
checksum formula used, MLX won't notice if you accidentally 
type FF in place of 00, and vice versa. And there's a very slim 
chance that you could garble a line and still end up with a 
combination of characters that adds up to the proper check¬ 
sum. However, these mistakes should not occur if you take 
reasonable care while entering data. 

Editing Features 

To correct typing mistakes before finishing a line, use the 
INST/DEL key to delete the character to the left of the cursor. 
(The cursor-left key also deletes.) If you really mess up a line, 
press CLR/HOME to restart the line. The RETURN key is also 
active, but only before any data is typed on a line. Pressing 
RETURN at this point returns you to the command menu. 
After you've typed a character of data, MLX disables RETURN 
until the cursor returns to the start of a line. Remember, you 
can press CLR/HOME to get to a line number prompt quickly. 

More editing features are available when you're correcting 
lines in which MLX has detected an error. To make corrections 
in a line that MLX has redisplayed for editing, compare the 
line on the screen with the one printed in the listing; then 
move the cursor to the mistake and type the correct key. The 
cursor-left and -right keys provide the normal cursor controls. 
(The INST/DEL key now works as an alternative cursor-left 
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key.) You cannot move left beyond the first character in the 
line. If you try to move beyond the rightmost character, you'll 
reenter the line. During editing, RETURN is active; pressing it 
tells MLX to recheck the line. You can press the CLR/HOME 
key to clear the entire line if you want to start from scratch or 
if you want to get to a line number prompt to use RETURN to 
get back to the menu. 

Display Data 

The second menu choice, DISPLAY DATA, examines memory 
and shows the contents in the same format as that of the pro¬ 
gram listing (including the checksum). When you press D, 

MLX asks you for a starting address. Be sure that the starting 
address you give corresponds to a line number in the listing. 
Otherwise, the checksum display will be meaningless. MLX 
displays program lines until it reaches the end of the program, 
at which point the menu is redisplayed. You can pause the 
display by pressing the space bar. (MLX finishes printing the 
current line before halting.) Press the space bar again to restart 
the display. To break out of the display and get back to the 
menu before the ending address is reached, press RETURN. 

Other Menu Options 

Two more menu selections let you save programs and load 
them back into the computer. These are SAVE FILE and 
LOAD FILE; their operation is quite straightforward. When 
you press S or L, MLX asks you for the filename. You'll then 
be asked to press either D or T to select disk or tape. 

You'll notice the disk drive starting and stopping several 
times during a load or save. Don't panic; this is normal behav¬ 
ior. MLX opens and reads from or writes to the file instead of 
using the usual LOAD and SAVE commands. Disk users 
should also note that the drive prefix 0: is automatically added 
to the filename (line 750), so it should not be included when 
you enter the name. This also precludes the use of (5) for 
Save-with-Replace, so remember to give each version you save 
a different name. 

Remember that MLX saves the entire workspace area from 
the starting address to the ending address, so the save Or load 
may take longer than you might expect if you've entered only 
a small amount of data from a long listing. When saving a 
partially completed listing, be sure to note the address where 
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you stopped typing so that you'll know where to resume entry 
when you reload. 

MLX reports the standard disk or tape error messages if 
any problems are detected during the save or load. (Tape users 
should bear in mind that Commodore computers are never 
able to detect errors during a save to tape.) MLX also has three 
special load error messages: INCORRECT STARTING AD¬ 
DRESS, which means the file you're hying to load does not 
have the starting address you specified when you ran MLX; 
LOAD ENDED AT address, which means the file you're trying 
to load ends before the ending address you specified when 
you started MLX; and TRUNCATED AT ENDING ADDRESS, 
which means the file you're trying to load extends beyond the 
ending address you specified when you started MLX. If you 
see one of these messages and feel certain that you've loaded 
the right file, exit and rerun MLX, being careful to enter the 
correct starting and ending addresses. 

The QUIT menu option has the obvious effect—it stops 
MLX and enters BASIC. The RUN/STOP key is disabled, so 
the Q option lets you exit the program without turning off the 
computer. (Of course, RUN/STOP-RESTORE also gets you 
out.) You'll be asked for verification; press Y to exit to BASIC 
or any other key to return to the menu. After quitting, you can 
type RUN again and reenter MLX without losing your data, as 
long as you don't use the CLEAR WORKSPACE option. 

The Finished Product 

When you've finished typing all the data for an ML program 
and you've saved your work, you're ready to see the results. 
The instructions for loading and using the finished product 
vary from program to program. Some ML programs are de¬ 
signed to be loaded and run like BASIC programs, so all you 
need to type is LOAD "filename”,8 for disk or LOAD "file¬ 
name" for tape, and then RUN. Such programs will usually 
have a starting address of 0801. Other programs must be re¬ 
loaded to specific addresses with a command such as LOAD 
"filename", 8,1 for disk or LOAD "filename",1,1 for tape, then 
started with a SYS to a particular memory address. On the 
Commodore 64, the most common starting address for such 
programs is 49152, which corresponds to MLX address C000. 
In either case, refer to the general description for each game— 
you'll find these in Chapter 1. 
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An Ounce of Prevention 

By the time you finish typing in the data for a long ML pro¬ 
gram, you may have several hours invested in the project. 
Don't take chances—read Appendix A, “How to Type In Pro- 
grams," use our “Automatic Proofreader" to type in MLX, and 
then test your copy thoroughly before first using it to enter any 
significant amount of data. Make sure all the menu options 
work as they should. Enter fragments of the program starting 
at several different addresses; then use the DISPLAY option to 
verify that the data has been entered correctly. And be sure to 
test the SAVE and LOAD options several times to insure that 
you can recall your work from disk or tape. Don't let a simple 
typing error in the new MLX cost you several nights of hard 
work. 


MLX 

Read Appendix A before entering the program. For error-free entry, use "The Automatic 
Proofreader" (Appendix B) to type in this program. 

SS 10 REM VERSION 1.1: LINES 830,950 MODIFIED, LIN 
ES 485-487 ADDED 

EK 100 POKE 56,50:CLR:DIM IN$,I,J,A,B,A$,B$,A(7),N 

$ 

DM 110 C4=48:C6=16:C7=7:Z2=2:Z4=254:Z5=255:Z6=256: 
Z7=127 

CJ 120 FA=PEEK(45)+Z6*PEEK(46):BS=PEEK(55)+Z6*PEEK 
(56):H$="0123456789ABCDEF" 

SB 130 R$=CHR$(13):L$="{LEFT}":S$=" ":D$=CHR$(20): 

Z$=CHR$(0):T$="{13 RIGHT}" 

CQ 140 SD=54272:FOR I=SD TO SD+23:POKE I,0:NEXT:PO 
KE SD+24,15:POKE 788,52 

FC 150 PRINT"{CLrJ"CHR$(142)CHR$(8):POKE 53280,15: 
POKE 53281,15 

EJ 160 PRINT T$" {RED}{RVS}{2 SPACES}g8 @1 

{2 SPACES]"SPC(28)"{2 SPACES]{OFF}{BLU} MLX 
II {RED]{RVS}{2 SPACES}"SPC(28)" 

{12 SPACES]{BLU}" 

FR 170 PRINT"{3 DOWN]{3 SPACES}COMPUTE 1’S MACHINE 
{SPACE}LANGUAGE EDITOR{3 DOWN}" 

JB 180 PRINT"{BLK}STARTING ADDRESSg4|" ; :GOSUB300:S 
A=AD:GOSUB1040:IF F THEN180 
GF 190 PRINT"{BLK}{2 SPACES}ENDING ADDRESSg43"*:GO 
SUB300:EA=AD:GOSUB1030:IF F THEN190 
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KR 200 INPUT"{3 DOWN}{BLK}CLEAR WORKSPACE [Y/N]g4i 
";A$:IF LEFT$(A$,1)< >"Y"THEN220 
PG 210 PRINT"{2 DOWN}{BLU}WORKING.. . " ;:FORI=BS TO 
{SPACE}BS+EA-SA+7:POKE 1,0:NEXTs PRINT"DONE" 
DR 220 PRINTTAB(10)"{2 DOWN}{BLK}{RVS} MLX COMMAND 
MENU {DOWN}£4-}":PRINT T$"{RVS}E{OFF}NTER D 
ATA" 

BD 230 PRINT T$ " {RVS}D{OFF}ISPLAY DATA"sPRINT T$" 

{RVS}L{OFF}OAD FILE" 

JS 240 PRINT T$"{RVS}S{OFF}AVE FILE"sPRINT T$" 
{RVS}Q{OFF}UIT{2 DOWN}{BLK}" 

JH 250 GET A$ sIF A$=N$ THEN250 

HK 260 *A=0:FOR 1=1 TO 5sIF A$=MID$("EDLSQ”,1,1)THE 
N A=1:1=5 

FD 270 NEXTsON A GOTO420,610,690,700,280SGOSUB1060 
SGOTO250 

EJ 280 PRINT"{RVS} QUIT "sINPUT"{DOWN}£4|ARE YOU S 
URE [Y/N]";A$ sIF LEFT$(A$,1)<>"Y"THEN220 
EM 290 POKE SD+24,0 s END 

JX 300 IN$=N$:AD=0 sINPUTIN$:IFLEN(IN$)< >4THENRETUR 
N 

KF 310 B$=IN$:GOSUB320:AD=A:B$=MID$(IN$,3)SGOSUB32 
0:AD=AD*256+AsRETURN 

PP 320 A=0:FOR J=1 TO 2sA$=MID$(B$,J,1):B=ASC(A$)- 
C4+(A$>"@")*C7:A=A*C6+B 
JA 330 IF B<0 OR B>15 THEN AD=0sA=-lsJ=2 
GX 340 NEXT:RETURN 

CH 350 B=INT(A/C6)sPRINT MID$(H$,B+l,1);sB=A-B*C6s 
PRINT MID$(H$/B+l, 1);sRETURN 
RR 360 A=INT(AD/Z6);GOSUB350sA=AD-A*Z6:GOSUB350:PR 
INT"s"; 

BE 370 CK=INT(AD/Z6)sCK=AD-Z4*CK+Z5*(CK>Z7)SG0T039 
0 

PX 380 CK=CK*Z2+Z5*(CK> Z7)+A 
JC 390 CK=CK+Z5*(CK> Z5):RETURN 

QS 400 PRINT" {DOWN} STARTING ATf$4§ " ; sGOSUB300: IF IN 
$<>N$ THEN GOSUB1030 sIF F THEN400 
EX 410 RETURN 

HD 420 PRINT"{RVS} ENTER DATA ":GOSUB400sIF IN$=N$ 
THEN220 

JK 430 OPEN3,3:PRINT 

SK 440 POKE198,0 sGOSUB360:IF F THEN PRINT IN$:PRIN 
T"{UP}{5 RIGHT}"; 

GC 450 FOR 1=0 TO 24 STEP 3sB$=S$:FOR J=1 TO 2sIF 
{SPACE}F THEN B$=MID$(IN$,I+J,1) 

HA 460 PRINT"{RVS}"B$L$;sIF I<24THEN PRINT"{OFF}"; 
HD 470 GET A$sIF A$=N$ THEN470 
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PK 480 IF(A$>"/"ANDA$<":")0R(A$>"@"ANDA$<"G")THEN5 
40 

GS 485 A=-(A$="M")-2*(A$=",")-3*(A$=".")-4*(A$="/" 
)-5*(A$="J")-6*(A$="K") 

FX 486 A=A—7*(A$="L")-8*(A$=":")—9*(A$="U")-10*(A$ 
="I")-11*(A$="0")-12*(A$="P") 

CM 487 A=A-13*(A$=S$)sIF A THEN A$=MID$("ABCD123E4 
56F0", A, 1):GOTO 540 

MP 490 IF A$=R$ AND((1=0)AND(J=1)OR F)THEN PRINT B 
$}: J=2 sNEXT:I=24:GOTO550 

KC 500 IF A$="{HOME}" THEN PRINT B$sJ=2sNEXTs1=24: 
NEXT s F=0 s GOTO440 

MX 510 IF(A$="{RIGHT}")ANDF THENPRINT B$L$;:G0T054 
0 

GK 520 IF A$OL$ AND A$<>D$ OR( (1=0 ) AND (J=l) ) THEN 
t SPACE}GOSUB1060:GOTO470 

HG 530 A$=L$+S$+L$SPRINT B$L$;sJ=2-JsIF J THEN PRI 
NT L$;s1=1-3 

QS 540 PRINT A$;sNEXT JsPRINT S$; 

PM 550 NEXT I SPRINT:PRINT”!UP}{5 RIGHT}INPUT#3, 
IN$ sIF IN$=N$ THEN CLOSE3 SGOTO220 
QC 560 FOR 1=1 TO 25 STEP3:B$=MID$(IN$,I):GOSUB320 
sIF I<25 THEN GOSUB380sA(1/3)=A 
PK 570 NEXT: IF AOCK THEN GOSUB1060 :PRINT" {BLK} 

{RVS} ERROR: REENTER LINE g4|":F=1SGOTO440 
HJ 580 GOSUB1080:B=BS+AD-SA:FOR 1=0 TO 7sPOKE B+I, 
A(I)sNEXT 

QQ 590 AD=AD+8sIF AD>EA THEN CLOSE3SPRINT"{DOWN} 

{BLU}** END OF ENTRY **{BLK}{2 DOWN}":GOTO7 
00 

GQ 600 F=0: GOTO440 

QA 610 PRINT"{CLR}{DOWN}{RVS} DISPLAY DATA "sGOSUB 
400:IF IN$=N$ THEN220 

RJ 620 PRINT"{DOWN}{BLU}PRESS: {RVS}SPACE{OFF} TO 
{SPACE}PAUSE, {RVS}RETURN{OFF} TO BREAK§4! 
{DOWN}" 

KS 630 GOSUB360:B=BS+AD-SAs FORI=BTO B+7:A=PEEK(I)s 
GOSUB350sGOSUB380SPRINT S$; 

CC 640 NEXTSPRINT"!RVS}:A=CKsGOSUB350SPRINT 
KH 650 F=1sAD=AD+8 sIF AD>EA THENPRINT"{DOWN}{BLU}* 
* END OF DATA **"SGOTO220 
KC 660 GET A$ sIF A$=R$ THEN GOSUB1080sGOTO220 
EQ 670 IF A$=S$ THEN F=F+1:GOSUB1080 
AD 680 ONFGOTO630,660,630 

CM 690 PRINT"{DOWN}{RVS} LOAD DATA "sOP=lSGOTO710 
PC 700 PRINT"{DOWN}{RVS} SAVE FILE ":OP=0 
RX 710 IN$=N$sINPUT"{DOWN}FILENAMEB43";IN$sIF IN$= 
N$ THEN220 

PR 720 F=0sPRINT"{DOWN}{BLK}{RVS}T{OFF}APE OR 
{RVS}D{OFf}iSKs i4|; 
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FP 730 GET A$slF A$="T"THEN PRINT"T {DOWN}":GOTO880 
HQ 740 IF A$<>"D"THEN730 

HH 750 PRINT"D{DOWN}":OPEN15,8,15,"10:":B=EA-SA:IN 
$="0:"+IN$:IF OP THEN810 

SQ 760 OPEN 1,8,8,IN$+",P,W":GOSUB860:IF A THEN220 
FJ 770 AH=INT(SA/256)sAL=SA-(AH*256)sPRINT#1,CHR$( 
AL);CHR$(AH); 

PE 780 FOR 1=0 TO B:PRINT#1,CHR$(PEEK(BS+I));:IF S 
T THEN800 

FC 790 NEXTsCLOSEl:CLOSE15:GOTO940 

GS 800 GOSUB1060:PRINT"{DOWN}{BLK}ERROR DURING SAV 
E s B4i"sGOSUB860 sGOTO220 

MA 810 OPEN 1,8,8,IN$+",P,R"sGOSUB860 sIF A THEN220 
GE 820 GET#1,A$,B$:AD=ASC(A$+Z$)+256*ASC(B$+Z$):IF 
ADOSA THEN F=lsGOTO850 

RX 830 FOR 1=0 TO B:GET#1,A$sPOKE BS+I,ASC(A$+Z$)s 
IF(I<>B)AND ST THEN F=2:AD=IsI=B 
FA 840 NEXT:IF ST<>64 THEN F=3 

FQ 850 CLOSE1:CLOSE15:ON ABS(F>0)+1 GOTO960.970 
SA 860 INPUT#15,A,A$:IF A THEN CLOSEIsCLOSE15:GOSU 
B1060:PRINT"{RVS}ERROR: "A$ 

GQ 870 RETURN 

EJ 880 POKE183,PEEK(FA+2):POKE187,PEEK(FA+3):POKE1 
88,PEEK(FA+4)sIFOP=0THEN920 
HJ 890 SYS 63466sIF(PEEK(783)AND1)THEN GOSUB1060:P 
RINT"{DOWN}{RVS} FILE NOT FOUND ":GOTO690 
CS 900 AD=PEEK( 829 )+256*PEEK(830 ) : IF ADOSA THEN F 
=1SGOTO970 

SC 910 A=PEEK(831)+256*PEEK(832)—1:F=F-2*(A<EA)-3* 
(A> EA)sAD=A-ADsGOTO930 

KM 920 A=SA:B=EA+1:GOSUB1010SPOKE780,3 sSYS 63338 
JF 930 A=BSsB=BS+(EA-SA)+l:GOSUB1010:ON OP GOTO950 
:SYS 63591 

AE 940 GOSUB1080:PRINT"{BLU}** SAVE COMPLETED **": 
GOTO220 

XP 950 POKE147,0:SYS 63562:IF ST>0 THEN970 
FR 960 GOSUB1080:PRINT"{BLU}** LOAD COMPLETED **": 
GOTO220 

DP 970 GOSUB1060SPRINT"{BLK}{RVS}ERROR DURING LOAD 
:{DOWN}B41"sON F GOSUB980,990,1000:GOTO220 
PP 980 PRINT"INCORRECT STARTING ADDRESS (";:GOSUB3 
60:PRINT")":RETURN 

GR 990 PRINT"LOAD ENDED AT "?:AD=SA+AD:GOSUB360:PR 
INT D$:RETURN 

FD 1000 PRINT"TRUNCATED AT ENDING ADDRESS":RETURN 
RX 1010 AH=INT(A/256):AL=A-(AH*256):POKE193,AL:POK 
E194,AH 

FF 1020 AH=INT(B/256):AL=B-(AH*256):POKE174,AL:POK 
El75,AH:RETURN 

FX 1030 IF AD<SA OR AD>EA THEN1050 
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n 

n 


HA 1040 IP(AD>511 AND AD<40960)OR(AD>49151 AND AD< 
53248)THEN GOSUB1080:F=0sRETURN 
HC 1050 GOSUB1060:PRINT"{RVS} INVALID ADDRESS 
{DOWN){BLK}"s F=1s RETURN 

AR 1060 POKE SD+5,31:POKE SD+6,208sPOKE SD,240sPOK 
E SD+1,4:POKE SD+4,33 
DX 1070 FOR S=1 TO 100sNEXT:GOTO1090 
PF 1080 POKE SD+5,8:POKE SD+6,240sPOKE SD,0sPOKE S 
D+l,90sPOKE SD+4,17 

AC 1090 FOR S=1 TO 100sNEXTsPOKE SD+4,0sPOKE SD,0s 
POKE SD+1,0sRETURN 



H 

H 


n 


36 



Program 1 

Space Arena 


Once you've typed in and saved a copy of "MLX" to disk or 
tape, load and run it. You'll be asked to provide two addresses 
before you can begin entering ''Space Arena." Respond to the 
prompts with 

Starting Address: C000 
Ending Address: CF8F 

Space Arena 

For mistake-proof program entry, use "MLX: Machine Language Entry Program " to type in 
this program. 
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01 

03 

C0 

00 

7A 

u 

CD80S01 

07 

E0 

00 

01 

0F 

F0 

00 

A0 

CD88:01 

IF 

F0 

00 

01 

3F 

F8 

00 

81 

u 

CD90S01 

7F 

FE 

00 

2D 

1C 

00 

02 

48 

CD98:78 

00 

01 

03 

F8 

00 

01 

0F 

99 


CDA0SF8 

00 

01 

7F 

F8 

00 

01 

0F 

A9 

u-i 

CDA8:F8 

00 

01 

03 

F8 

00 

02 

78 

55 


CDB0:00 

02 

1C 

00 

2C 

7F 

FE 

00 

AD 


i I 
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Chapter 2 


CDB8:01 

3F 

F8 

00 

01 

IF 

F0 

00 

2A 

CDC0S01 

0F 

F0 

00 

01 

07 

E0 

00 

A4 

CDC8:01 

03 

C0 

00 

01 

01 

80 

00 

CA 

CDD0:02 

C0 

00 

20 

30 

00 

02 

3C 

61 

CDD8:00 

02 

3F 

00 

02 

IF 

C0 

00 

EA 

CDE0S01 

IF 

F0 

00 

01 

IF 

FC 

00 

61 

CDE8 s 01 

0F 

E0 

00 

01 

0F 

80 

00 

2 A 

CDF0S01 

0F 

00 

02 

06 

00 

02 

06 

2B 

CDF8S00 

IE 

0C 

00 

02 

0E 

00 

02 

E7 

CE00:0F 

00 

02 

0F 

80 

00 

01 

0F 

6B 

CE08 s C0 

00 

01 

0F 

E0 

00 

01 

0F 

2F 

CE10:F0 

00 

01 

0F 

F8 

00 

01 

0F 

10 

CE18sEC 

00 

01 

0D 

00 

02 

0C 

00 

3D 

CE20:21 

08 

10 

00 

01 

04 

32 

00 

CE 

CE28s01 

06 

14 

00 

01 

14 

A4 

00 

EB 

CE30S01 

18 

CC 

00 

01 

03 

00 

02 

04 

CE38:6D 

1C 

00 

01 

08 

4A 

00 

02 

0F 

CE40:C0 

00 

01 

09 

30 

00 

01 

01 

73 

CE48s00 

03 

80 

00 

ID 

60 

00 

02 

23 

CE50SF0 

00 

02 

60 

00 

3A 

FF 

00 

95 

CE58:01 

0F 

BE 

F0 

0E 

FF 

F0 

3F 

B2 

CE60:F9 

7C 

3F 

F9 

BC 

3D 

6A 

B8 

0A 

CE68:F5 

7B 

DA 

B5 

BA 

6A 

F5 

B6 

B8 

CE70:A6 

F6 

B6 

A6 

FB 

DA 

56 

FA 

53 

CE78s6A 

5A 

3A 

AA 

58 

3A 

A5 

A8 

73 

CE80S16 

96 

58 

0B 

56 

60 

0B 

59 

2E 

CE88:A0 

00 

01 

AA 

00 

0C 

FF 

00 

71 

CE90:01 

0F 

EF 

B0 

0B 

FF 

B0 

3D 

72 

CE98s7F 

FC 

3D 

B5 

AC 

2F 

E5 

B8 

DE 

CEA0SFF 

A6 

FA 

FF 

AB 

DA 

E5 

AA 

86 

CEA8:69 

F6 

EA 

AA 

FA 

EF 

96 

FB 

81 

CEB0:75 

96 

3A 

B5 

98 

3A 

65 

98 

62 

CEB8:25 

9A 

58 

09 

55 

60 

0A 

55 

C0 

CEC0:A0 

00 

01 

AA 

00 

0C 

FF 

00 

A9 

CEC8s01 

03 

FF 

F0 

0E 

D7 

F0 

0E 

76 

CED0SDB 

FC 

3B 

FF 

AC 

3B 

EA 

68 

93 

CED8:EF 

AE 

BA 

EF 

B5 

AA 

FE 

D5 

9C 

CEE0:A6 

FE 

D5 

E6 

F5 

96 

D6 

F6 

69 

CEE8:EB 

E6 

3B 

EF 

58 

3A 

AA 

58 

F5 

CEF0s 2A 

99 

98 

09 

99 

60 

0A 

55 

65 

CEF8:A0 

00 

01 

AA 

00 

0C 

FF 

00 

El 

CF00:01 

0F 

FB 

F0 

0E 

FF 

F0 

3B 

FF 

CF08:FF 

FC 

3B 

5A 

AC 

3F 

6E 

98 

CB 

CF10s 6F 

6D 

AE 

BF 

B6 

AA 

FE 

6A 

5D 

CF18:66 

F6 

BA 

B6 

DB 

AE 

96 

FE 

31 

CF20SB5 

56 

3A 

B5 

98 

39 

A5 

98 

60 

CF28s2A 

E5 

98 

09 

5A 

60 

0A 

55 

B7 

CF30 sA0 

00 

01 

AA 

00 

0B 

00 

00 

17 

CF38s00 

10 

00 

00 

00 

00 

00 

00 

DB 

CF40:00 

18 

00 

00 

00 

00 

20 

04 

2A 

CF48:00 

3A 

5C 

00 

20 

04 

00 

10 

23 



Type It In 


CF50:49 18 18 92 08 00 33 CC 3A 
CF58:33 CC 33 CC 33 CC 66 99 2B 
CF60:66 99 66 99 66 99 0F 0E C5 
CF68S0E 0E 0E 0F 0E 0E 0E 0E 18 
CF70t0E 0E 0E 0E 0E 0E 0E 0F 11 
CF78s04 04 04 04 0F 05 05 05 77 
CF80:05 05 05 05 05 05 05 05 20 
CF88:0F 05 05 05 05 0F 00 00 46 



47 



Program 2 

Saloon Shootout 


Make sure you have a copy of "MIX entered and saved to 
tape or disk before you begin typing in "Saloon Shootout." 
Load and run MLX, and answer the prompts with 

Starting Address: 2800 
Ending Address: 3BC7 

When you've finished typing, be sure to save a copy of the 
data before you exit MLX. 

Saloon Shootout 

For mistake-proof program entry, use "MLX: Machine Language Entry Program" to type in 
this program. 


2800:4C 

1A 

28 

00 

00 

00 

00 

00 

02 

2808:00 

00 

00 

00 

00 

00 

00 

00 

58 

2810:00 

00 

00 

00 

00 

00 

00 

00 

60 

2818:00 

00 

A9 

00 

8D 

5C 

03 

8D 

0F 

2820:5D 

03 

A9 

93 

20 

D2 

FF 

20 

BA 

2828:B2 

33 

20 

4C 

2F 

20 

5D 

34 

50 

2830:20 

AD 

2E 

20 

70 

38 

20 

18 

80 

2838:2E 

20 

FC 

29 

CE 

0B 

28 

D0 

9D 

2840:0C 

AD 

0C 

28 

8D 

0B 

28 

20 

0F 

2848:08 

30 

20 

5F 

2A 

CE 

09 

28 

69 

2850:D0 

0C 

AD 

0A 

28 

8D 

09 

28 

14 

2858:20 

8D 

30 

20 

2D 

2A 

CE 

61 

35 

2860:03 

D0 

09 

AD 

62 

03 

8D 

61 

FD 

2868:03 

20 

F7 

2A 

CE 

0D 

28 

D0 

AF 

2870:09 

AD 

0E 

28 

8D 

0D 

28 

20 

06 

2878:F7 

30 

AD 

0D 

28 

C9 

0A 

B0 

84 

2880:0F 

AD 

66 

03 

C9 

01 

D0 

08 

BC 

2888:AD 

11 

FF 

29 

4F 

8D 

11 

FF 

59 

2890:CE 

0F 

28 

D0 

09 

AD 

10 

28 

65 

2898:8D 

0F 

28 

20 

40 

2D 

CE 

18 

E6 

28A0:28 

D0 

09 

AD 

19 

28 

8D 

18 

D1 

28A8:28 

20 

DD 

37 

20 

EE 

28 

CE 

20 

28B0:57 

03 

D0 

88 

CE 

54 

03 

20 

FD 

28B8:6E 

29 

AD 

54 

03 

F0 

08 

AD 

IF 

28C0:58 

03 

F0 

03 

4C 

3C 

28 

A9 

99 

28C8:00 

8D 

11 

FF 

A2 

17 

A0 

08 

59 

28D0:18 

20 

F0 

FF 

A9 

BD 

A0 

37 

10 

28D8:20 

08 

34 

20 

2D 

2A 

20 

6E 

84 

28E0:29 

20 

FC 

29 

20 

E4 

FF 

C9 

5E 



u 

□ 


Type It In 


U 


u 

u 


28E8 

:0D 

D0 

F9 

4C 

22 

28 

A2 

00 

EE 

28F0 

:CA 

D0 

FD 

60 

18 

6D 

52 

03 

BE 

28F8 

:8D 

52 

03 

AD 

53 

03 

69 

00 

59 

2900 

s8D 

53 

03 

AD 

63 

03 

D0 

21 

13 

2908 

:AD 

52 

03 

38 

E9 

F4 

8D 

04 

EB 

2910 

: 28 

AD 

53 

03 

E9 

01 

0D 

04 

ED 

2918 

: 28 

90 

0E 

AD 

54 

03 

18 

69 

87 

2920 

: 32 

8D 

54 

03 

A9 

01 

8D 

63 

79 

2928 

:03 

4C 

6E 

29 

8D 

03 

28 

AD 

E5 

2930 

:52 

03 

38 

ED 

03 

28 

8D 

52 

78 

2938 

:03 

AD 

53 

03 

E9 

00 

8D 

53 

CF 

2940 

*03 

B0 

08 

A9 

00 

8D 

52 

03 

B9 

2948 

:8D 

53 

03 

4C 

6E 

29 

18 

6D 

11 

2950 

*58 

03 

C9 

24 

90 

02 

A9 

23 

0E 

2958 

*8D 

58 

03 

60 

8D 

04 

28 

AD 

68 

2960 

*58 

03 

38 

ED 

04 

28 

B0 

02 

A9 

2968 

*A9 

00 

8D 

58 

03 

60 

8A 

48 

BD 

2970 

*98 

48 

A9 

92 

20 

D2 

FF 

A9 

75 

2978 

*05 

20 

D2 

FF 

A2 

06 

A0 

00 

IE 

2980 

*18 

20 

F0 

FF 

AE 

52 

03 

AD 

77 

2988 

*53 

03 

20 

13 

34 

A2 

0A 

A0 

5B 

2990 

*00 

18 

20 

F0 

FF 

AE 

54 

03 

62 

2998 

*A9 

00 

20 

13 

34 

A0 

00 

AD 

C6 

29A0 

*54 

03 

C9 

19 

00 

02 

A0 

FI 

6A 

29A8 

sAE 

56 

03 

D0 

05 

8C 

19 

FF 

El 

29B0 

*D0 

03 

8C 

20 

D0 

A9 

12 

20 

31 

29B8 

*02 

FF 

A2 

12 

A0 

02 

18 

20 

47 

29C0 

*F0 

FF 

AD 

46 

03 

0A 

0A 

18 

12 

29C8 

*69 

49 

A8 

20 

D2 

FF 

C8 

98 

F9 

29D0 

*8D 

04 

28 

20 

D2 

FF 

A9 

D9 

B5 

2908 

*A0 

37 

20 

08 

34 

AC 

04 

28 

52 

29E0 

*C8 

98 

20 

D2 

FF 

C8 

C0 

60 

F3 

29E8 

:D0 

04 

38 

E9 

3E 

A8 

98 

20 

30 

29F0 

:D2 

FF 

A9 

92 

20 

D2 

FF 

68 

BF 

29F8 

sA8 

68 

AA 

60 

AD 

5C 

03 

38 

32 

2A00 

sED 

52 

03 

8D 

03 

28 

AD 

5D 

8A 

2A08 

:03 

ED 

53 

03 

0D 

03 

28 

B0 

69 

2A10 

:0B 

A0 

01 

B9 

52 

03 

99 

5C 

FB 

2A18 

:03 

88 

10 

F7 

A2 

0E 

A0 

00 

20 

2A20 

: 18 

20 

F0 

FF 

AE 

5C 

03 

AD 

41 

2A28 

: 5D 

03 

4C 

13 

34 

AD 

5A 

03 

B6 

2A30 

: 18 

69 

C4 

85 

04 

AD 

5B 

03 

6C 

2A38 

:69 

03 

85 

05 

AE 

58 

03 

E8 

C8 

2A40 

:A0 

00 

A9 

BC 

CA 

F0 

02 

10 

14 

2A48 

:02 

A9 

20 

91 

04 

20 

30 

2D 

53 

2A50 

: AD 

56 

03 

D0 

02 

A9 

71 

91 

A9 

2A58 

: 02 

C8 

C0 

23 

D0 

E4 

60 

AD 

B2 

2A60 

:4A 

03 

D0 

3A 

CE 

4E 

03 

F0 

FE 

2A68 

:01 

60 

20 

EC 

2A 

20 

FB 

2F 

21 

2A70 

: 29 

07 

18 

69 

07 

8D 

4C 

03 

BE 

2A78 

:A9 

03 

8D 

4B 

03 

EE 

4A 

03 

34 
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n 


2A80SA2 04 20 FB 
2A88:03 F0 F7 A8 
2A90:8C 4F 03 18 
2A98:38 A0 37 20 
2AA0:03 F0 29 CE 
2AA8:A2 04 AC 4F 
2AB0SFF A9 00 8D 
2AB8:A0 37 20 FB 
2AC0:01 8D 59 03 
2AC8:8A 20 08 34 
2AD0:98 A9 00 8D 
2AD8:AC 4F 03 20 
2AE0:03 F0 05 A9 
2AE8:60 0D 17 21 
2AF0:IF 09 20 8D 
2AF8:5E 03 C9 0B 
2B00SD0 12 A9 00 
2B08:01 8D 60 03 
2B10:65 8D 62 03 
2B18:18 69 D8 85 
2B20:69 02 85 05 
2B28:20 91 04 C8 
2B30S03 18 6D 60 
2B38:F0 29 C9 0E 
2B40SA8 AD 60 03 
2B48:BD 69 2B 91 
2B50:2B 91 04 20 
2B58S03 D0 02 A9 
2B60:91 02 60 A9 
2B68s60 IB 1C ID 
2B70SB1 04 C9 85 
2B78:B0 2D 38 E9 
2B80s2C 8D 03 28 
2B88:03 28 85 04 
2B90:85 05 A2 00 
2B98:0A 20 F4 28 
2BA0I0A B0 03 EE 
2BA8:84 F0 08 C9 
2BB0s8D B0 01 60 
2BB8:C9 A2 B0 48 
2BC0:AD 47 03 38 
2BC8:D2 2C 18 6D 
2BD0:90 03 38 E9 
2BD8s03 29 7F 4A 
2 BE0:D0 0A CE 46 
2BE8:23 20 4E 29 
2BF0t03 20 70 38 
2BF8:0A 20 F4 28 
2C00S03 4C 75 2C 
2C08:A9 0A 20 2C 
2C10sC9 A2 90 1A 


2F 29 03 C9 D8 
B9 E9 2A A8 96 
20 F0 FF A9 4F 
08 34 AD 4C D2 
4C 03 D0 Cl 96 
03 18 20 F0 83 

59 03 A2 5A BE 
2F 10 09 A9 64 
A2 76 A0 37 BB 
CE 4B 03 D0 29 
4A 03 A2 04 5C 
A7 35 AD 59 80 
0A 20 5C 29 E0 
20 FB 2F 29 IE 
4E 03 60 AD E0 
F0 17 C9 0A A8 
8D 5F 03 A9 12 
EE 5E 03 A9 IF 

60 AD 5A 03 6A 
04 AD 5B 03 D8 
AC 5F 03 A9 3F 
91 04 AD 5F 57 
03 8D 5F 03 D1 
F0 25 A2 00 CC 
10 02 A2 02 62 
04 C8 BD 6A 7F 
30 2D AD 56 0B 
71 91 02 88 9D 
00 8D 5E 03 9C 
IE AC 47 03 40 
90 31 C9 89 98 
85 AA BD FB 66 
A5 04 38 ED CE 
A5 05 E9 00 70 
20 B0 2C A9 05 
AD 5E 03 C9 D3 
5E 03 60 C9 01 
89 90 05 C9 7D 
C9 A0 F0 4C IF 
C9 8D 90 44 21 
E9 13 AA BD 52 
50 03 C9 05 94 
05 AA BD 3C 60 
4A CD 46 03 A8 
03 D0 10 A9 85 
A9 05 8D 46 F7 
4C 75 2C A9 9C 
A9 1C 9D 3C B2 
C9 66 D0 08 EF 
29 4C 75 2C 10 
C9 B4 B0 16 42 


n 

n 

n 

n 


n 

n 

n 

n 
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2C18:C9 

AB 

B0 

08 

A9 

64 

20 

20 

22 

2020:29 

40 

75 

20 

A9 

00 

8D 

59 

53 

2028:03 

A9 

19 

20 

F4 

28 

09 

IB 

88 

2030:90 

26 

09 

IF 

B0 

22 

AD 

60 

4F 

2038:03 

49 

FF 

18 

69 

01 

8D 

60 

B0 

2040:03 

AD 

62 

03 

38 

E9 

14 

30 

03 

2048:03 

8D 

62 

03 

A9 

65 

38 

ED 

43 

2050:62 

03 

20 

F4 

28 

40 

75 

20 

77 

2058:09 

B6 

D0 

19 

A9 

00 

8D 

65 

BC 

2060:03 

A9 

01 

8D 

66 

03 

EE 

64 

IF 

2068:03 

AD 

64 

03 

09 

03 

90 

05 

EA 

2070:A9 

00 

8D 

64 

03 

AE 

16 

28 

BC 

2078:EE 

16 

28 

A5 

04 

9D 

03 

3B 

86 

2080:A5 

05 

9D 

D7 

3B 

AD 

47 

03 

40 

2088:9D 

EB 

3B 

B1 

04 

09 

IB 

90 

3B 

2090:06 

09 

IF 

B0 

02 

A9 

20 

9D 

El 

2098:FF 

3B 

20 

30 

2D 

B1 

02 

9D 

98 

2OA0:13 

30 

AD 

56 

03 

D0 

02 

A9 

B5 

20A8:71 

91 

02 

A9 

84 

91 

04 

60 

CB 

2OB0:AC 

47 

03 

BD 

DB 

20 

91 

04 

24 

2CB8:C8 

E8 

BD 

DB 

20 

91 

04 

E8 

BD 

2000:98 

18 

69 

27 

A8 

BD 

DB 

20 

2B 

2008:91 

04 

E8 

08 

BD 

DB 

20 

91 

DB 

2OD0:04 

60 

00 

00 

00 

01 

01 

01 

4A 

20D8:02 

02 

02 

89 

8A 

8B 

80 

8D 

B4 

2CE0:8E 

8F 

90 

91 

92 

93 

94 

95 

31 

2CE8:96 

97 

98 

99 

9A 

9B 

90 

9D 

39 

2CF0:9E 

9F 

A1 

66 

66 

66 

66 

20 

D4 

20F8:20 

20 

20 

00 

01 

28 

29 

AE 

17 

2D00:16 

28 

F0 

23 

CA 

BD 

03 

3B 

OF 

2D08:85 

04 

BD 

D7 

3B 

85 

05 

BC 

12 

2D10:EB 

3B 

BD 

FF 

3B 

91 

04 

20 

2F 

2D18:30 

2D 

BD 

13 

30 

91 

02 

CA 

B5 

2D20:10 

E3 

A9 

00 

8D 

16 

28 

AD 

73 

2D28:11 

FF 

29 

IF 

8D 

11 

FF 

60 

33 

2D30:A5 

04 

18 

6D 

14 

28 

85 

02 

86 

2D38:A5 

05 

6D 

15 

28 

85 

03 

60 

63 

2D40:20 

40 

2E 

4A 

B0 

0D 

AE 

11 

50 

2D48:28 

E0 

10 

F0 

06 

EE 

11 

28 

36 

2D50:20 

18 

2E 

4A 

B0 

0D 

AE 

11 

53 

2D58:28 

E0 

02 

F0 

06 

CE 

11 

28 

04 

2060:20 

18 

2E 

4A 

B0 

14 

48 

AD 

4F 

2D68:47 

03 

F0 

0D 

A2 

00 

20 

DB 

47 

2070:2D 

CE 

47 

03 

A2 

04 

20 

DB 

6F 

2D78:2D 

68 

4A 

B0 

16 

48 

AD 

47 

40 

2D80:03 

09 

IF 

F0 

0D 

A2 

00 

20 

D4 

2088:OB 

2D 

EE 

47 

03 

A2 

04 

20 

39 

2D90:0B 

2D 

68 

4A 

B0 

3F 

AD 

17 

CA 

2D98:28 

D0 

34 

AD 

58 

03 

F0 

2F 

70 

2DA0:A9 

01 

20 

50 

29 

20 

33 

2E 

38 

2DA8:AD 

5A 

03 

18 

69 

57 

85 

04 

0A 



Chapter 2 


2DB0:AD 

5B 

03 

69 

00 

85 

05 

AE 

7E 

2DB8:11 

28 

F0 

10 

A5 

04 

18 

69 

9B 

2DC0:28 

85 

04 

A5 

05 

69 

00 

85 

BE 

2DC8:05 
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Program 3 

Prisonball 


Once you have a copy of "MLX" typed in and saved to disk 
or tape, load and run it. When you run MLX, you'll be asked 
for a starting address and an ending address for the data you'll 
be entering. For "Prisonball/' those are 

Starting Address: 0801 
Ending Address: 0F90 

Be sure you save a copy (preferably more than one) of the fin¬ 
ished program to tape or disk before you quit MLX. 

Prisonball 

For mistake-proof program entry, use "MLX: Machine Language Entry Program" to type in 
this program. 
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0F41203 0D 03 0A A0 El 61 El 56 
0F49 s 61 20 20 20 20 0A 14 IE 95 
0F51:9B 12 53 43 4F 52 45 20 CE 
0F59s20 20 20 20 20 20 20 20 77 
0F61:54 49 4D 45 20 33 3A 30 6C 
0F69 s 30 20 20 20 20 53 43 4F D1 
0F71 s 52 45 00 50 52 49 53 4F BC 
0F79:4E 42 41 4C 4C 00 50 52 91 
0F81:45 53 53 20 46 49 52 45 C4 
0F89:42 55 54 54 4F 4E 00 00 A1 



Program 4 

g-Bird 


You must have a copy of "MLX" typed in and saved to disk or 
tape before you start entering "Q-Bird." Load and run MLX; then 
answer the prompts for the starting and ending addresses with 

Starting Address: 0801 
Ending Address: 1910 

Save a copy (several is safer) of the completed program to 
tape or disk before you exit MLX. 

9-Bird 

For mistake-proof program entry, use "MLX: Machine Language Entry Program" to type in 
this program. 
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4C 

7C 

17D9:E0 

0B 

00 

80 

1C 

78 

74 

70 

62 

17E1:6E 

6C 

6A 

68 

66 

00 

00 

00 

69 

17E9:00 

00 

00 

00 

00 

00 

00 

00 

18 

17F1:00 

00 

00 

00 

A9 

08 

8D 

09 

B1 

17F9:D4 

8D 

0A 

D4 

A9 

77 

8D 

06 

D0 

1801:D4 

8D 

0D 

D4 

A9 

41 

8D 

0B 

66 

1809:D4 

A9 

4C 

8D 

DD 

13 

A9 

00 

FE 

1811:8D 

0F 

D4 

4C 

C2 

18 

AD 

FE 

FB 

1819:2F 

C9 

01 

D0 

IB 

AE 

FF 

2F 

43 

1821:BD 

BA 

18 

8D 

08 

D4 

A9 

28 

C9 

1829:8D 

01 

D4 

A9 

81 

8D 

04 

D4 

B4 

1831:A9 

80 

8D 

04 

D4 

4C 

B7 

18 

A7 

1839:C9 

0F 

D0 

28 

A9 

40 

8D 

0B 

23 

1841:D4 

A9 

41 

8D 

0B 

D4 

A9 

IE 

64 

1849:8D 

01 

D4 

EE 

FF 

2F 

AE 

FF 

24 

1851:2F 

BD 

BA 

18 

8D 

08 

D4 

A9 

41 

1859:81 

8D 

04 

D4 

A9 

80 

8D 

04 

E9 

1861:D4 

4C 

B7 

18 

C9 

10 

D0 

0F 

C6 

1869sAE 

FF 

2F 

BD 

BA 

18 

18 

69 

82 

1871:02 

8D 

08 

D4 

4C 

B7 

18 

C9 

8F 

1879:18 

D0 

23 

A9 

40 

8D 

0B 

D4 

0C 

1881:A9 

41 

8D 

0B 

D4 

AE 

FF 

2F 

C9 

1889:BD 

BA 

18 

18 

69 

04 

8D 

08 

4A 

1891:D4 

A9 

81 

8D 

04 

D4 

A9 

80 

E6 

1899:8D 

04 

D4 

4C 

B7 

18 

C9 

IE 

C0 

18A1:D0 

14 

EE 

FF 

2F 

A9 

00 

8D 

CA 

18A9:FE 

2F 

AD 

FF 

2F 

C9 

08 

D0 

5C 

18B1:05 

A9 

00 

8D 

FF 

2F 

4C 

D3 

D0 

18B9:18 

04 

08 

0C 

10 

14 

10 

0C 

B5 

18C1:08 

78 

A9 

D9 

8D 

14 

03 

A9 

53 

18C9:18 

8D 

15 

03 

58 

A9 

00 

4C 

FI 

18D1:33 

0C 

EE 

FE 

2F 

4C 

31 

EA 

64 

18D9:EE 

FD 

2F 

AD 

FD 

2F 

29 

01 

Cl 












□ 
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n 










n 

18E1:D0 

03 

4C 

31 

EA 

4C 

17 

18 

A6 

□ 

18E9:AD 

8D 

02 

D0 

03 

4C 

77 

15 

EE 

18F1:A9 

00 

8D 

0F 

D4 

4C 

E9 

18 

5D 

n 

18F9:A9 

2B 

8D 

18 

03 

A9 

15 

8D 

73 

1901:19 

03 

A9 

00 

8D 

10 

D0 

8D 

91 


1909:IB 

D0 

4C 

F5 

17 

00 

00 

00 

9E 

n 


n 


n 

n 

n 

n 

n 


78 



Program 5 

Bump-N-Run 


Once you have a copy of "MLX" typed in and saved to tape 
or disk, load and run it. You'll have to provide a starting ad¬ 
dress and an ending address. For "Bump-N-Run," the ad¬ 
dresses are 

Starting Address: COOO 
Ending Address: C 69 F 

Save a copy to disk or tape when you've finished typing, 
and before you quit MLX. 

Bump-N-Run 

For mistake-proof program entry, use "MLX: Machine Language Entry Program" to type in 
this program. 


C000:A9 

00 

8D 

20 

D0 

8D 

21 

D0 

D9 

C008:8D 

20 

C7 

8D 

21 

Cl 

AD 

16 

C3 

C010:03 

8D 

18 

03 

AD 

17 

03 

8D 

07 

C018:19 

03 

A9 

14 

8D 

18 

D0 

A9 

75 

C020s80 

8D 

91 

02 

A9 

93 

20 

D2 

46 

C028:FF 

A9 

00 

A2 

80 

9D 

80 

3F 

F8 

C030:CA 

10 

FA 

A9 

18 

8D 

99 

3F 

7E 

C038:8D 

A2 

3F 

A9 

3C 

8D 

9C 

3F 

3C 

C040;8D 

9F 

3F 

A2 

33 

BD 

4C 

C6 

72 

C048:9D 

C4 

3F 

CA 

10 

F7 

20 

1A 

19 

C050:C5 

78 

A9 

05 

8D 

14 

03 

A9 

C4 

C058:C2 

8D 

15 

03 

58 

20 

80 

C2 

78 

C060:A9 

FF 

8D 

18 

C7 

A9 

00 

8D 

5C 

C068:15 

C7 

8D 

16 

Cl 

8D 

17 

C7 

E3 

C070:8D 

IF 

C7 

8D 

19 

Cl 

8D 

1A 

6F 

C078:C7 

A2 

05 

A9 

00 

9D 

00 

Cl 

FF 

C080:9D 

06 

C7 

A9 

5A 

9D 

0C 

Cl 

0F 

C088:CA 

10 

F0 

AD 

16 

Cl 

29 

03 

91 

C090:C9 

03 

D0 

50 

AD 

15 

C7 

D0 

F8 

C098:48 

AE 

00 

C7 

AC 

01 

Cl 

AD 

0D 

C0A0:02 

C7 

8D 

00 

Cl 

AD 

03 

Cl 

89 

C0A8:8D 

01 

C7 

8E 

02 

Cl 

8C 

03 

5E 

C0B0:C7 

AD 

17 

C7 

F0 

IB 

C9 

01 

69 

C0B8:F0 

0D 

A9 

01 

8D 

17 

Cl 

A9 

3D 

C0C0S0B 

8D 

15 

D0 

4C 

D1 

C0 

A9 

AF 

C0C8:03 

8D 

17 

C7 

A9 

13 

8D 

15 

58 

C0O0:D0 

A2 

03 

BD 

06 

Cl 

9D 

0C 

36 

C0D8sC7 

CA 

10 

F7 

A9 

01 

8D 

15 

F3 


79 
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C0E0:C7 

40 

2A 

Cl 

AD 

17 

07 

D0 

E4 

C0E8:18 

AD 

04 

07 

CD 

19 

07 

D0 

12 

C0F0S0B 

AD 

05 

07 

CD 

1A 

07 

D0 

B7 

C0F8 s 03 

40 

01 

Cl 

A9 

FF 

8D 

18 

CB 

C100sC7 

A9 

00 

8D 

15 

07 

AD 

16 

E3 

C108:C7 

2D 

18 

07 

29 

07 

09 

05 

38 

C110sD0 

0A 

A9 

01 

8D 

17 

07 

A9 

05 

C118:0B 

8D 

15 

D0 

09 

06 

D0 

0A 

46 

C120:A9 

03 

8D 

17 

07 

A9 

13 

8D 

F4 

C128:15 

D0 

A2 

00 

8E 

14 

07 

A9 

BC 

C130:09 

8D 

12 

07 

AD 

01 

DC 

8D 

13 

0138:13 

07 

20 

DF 

02 

A2 

02 

8E 

60 

0140:14 

07 

A9 

12 

8D 

12 

07 

AD 

08 

0148:00 

DC 

8D 

13 

07 

20 

DF 

02 

27 

0150:A2 

04 

8E 

14 

07 

A9 

24 

8D 

F3 

0158:12 

07 

AD 

04 

07 

8D 

19 

07 

3B 

0160:AD 

05 

07 

8D 

1A 

07 

BD 

00 

45 

0168:07 

DD 

06 

07 

F0 

06 

DE 

00 

ED 

0170:07 

40 

7E 

Cl 

A9 

5A 

9D 

00 

D4 

0178:C7 

A0 

02 

20 

E4 

03 

EE 

14 

72 

0180:07 

AE 

14 

07 

BD 

00 

07 

DD 

IE 

0188:06 

07 

F0 

06 

DE 

00 

07 

40 

82 

0190:62 

02 

A9 

5A 

9D 

00 

07 

A0 

ED 

0198:02 

20 

20 

04 

AE 

IF 

07 

F0 

E7 

O1A0:61 

A9 

00 

8D 

15 

D0 

FE 

IF 

21 

C1A8:C7 

A2 

01 

18 

20 

F0 

FF 

AE 

CD 

O1B0:IF 

07 

BD 

IF 

07 

0A 

AA 

BD 

D8 

C1B8:80 

06 

20 

D2 

FF 

E8 

BD 

80 

FE 

0100:06 

20 

D2 

FF 

A2 

64 

A0 

FF 

FI 

C1C8:88 

D0 

FD 

CA 

D0 

F8 

AE 

IF 

18 

C1D0:C7 

BD 

IF 

07 

09 

0F 

D0 

27 

5B 

C1D8:A2 

00 

A0 

10 

18 

20 

F0 

FF 

E8 

O1E0:A2 

20 

20 

E3 

05 

A2 

0E 

A0 

78 

C1E8:0B 

18 

20 

F0 

FF 

A2 

41 

20 

38 

C1F0:E3 

05 

AD 

01 

DC 

0D 

00 

DC 

95 

C1F8:29 

10 

D0 

F6 

40 

00 

00 

40 

CE 

0200:5D 

00 

40 

8B 

00 

AD 

IE 

D0 

70 

0208:8D 

16 

07 

29 

03 

09 

03 

D0 

7B 

0210:0E 

A2 

00 

20 

22 

02 

E8 

20 

55 

0218:22 

02 

A9 

0F 

8D 

19 

D0 

40 

44 

0220:31 

EA 

BD 

00 

D0 

DD 

02 

D0 

83 

0228:F0 

55 

10 

2B 

DE 

00 

D0 

DE 

A7 

0230:06 

D0 

10 

00 

E0 

01 

F0 

08 

A4 

0238:A9 

F6 

2D 

10 

D0 

8D 

10 

D0 

A4 

0240:FE 

02 

D0 

FE 

08 

D0 

D0 

37 

20 

0248:E0 

01 

F0 

33 

A9 

12 

0D 

10 

8F 

0250:D0 

8D 

10 

D0 

40 

7F 

02 

FE 

95 

0258:00 

D0 

FE 

06 

D0 

D0 

00 

E0 

15 

0260:01 

F0 

08 

A9 

09 

0D 

10 

D0 

AB 

0268:8D 

10 

D0 

DE 

02 

D0 

DE 

08 

D9 

0270:D0 

10 

00 

E0 

01 

F0 

08 

A9 

77 



Type It In 


1 f 

C278:ED 

2D 

10 

D0 

8D 

10 

D0 

60 

FD 


0280:A9 

4A 

8D 

00 

D0 

8D 

06 

D0 

B8 


C288:A9 

90 

8D 

01 

D0 

8D 

03 

D0 

5C 

LJ 

C290:8D 

05 

D0 

8D 

07 

D0 

8D 

09 

B0 


C298:D0 

8D 

0B 

D0 

A9 

0F 

8D 

02 

FE 

u 

C2A0:D0 

8D 

08 

D0 

A9 

AC 

8D 

0A 

25 

C2A8:D0 

8D 

04 

D0 

A9 

12 

8D 

10 

48 


C2B0:D0 

A9 

FF 

8D 

F8 

07 

8D 

F9 

DA 


C2B8s07 

A9 

FE 

8D 

FA 

07 

8D 

FB 

EF 


C2C0S07 

8D 

FC 

07 

A9 

04 

8D 

27 

DC 


C2C8sD0 

A9 

07 

8D 

28 

D0 

A9 

01 

B3 


C2D0:8D 

29 

D0 

8D 

2A 

D0 

8D 

2B 

35 


C2D8:D0 

A9 

07 

8D 

15 

D0 

60 

BD 

55 


C2E0S0C 

C7 

DD 

06 

C7 

F0 

0C 

DE 

73 


C2E8:0C 

C7 

4E 

13 

C7 

4E 

13 

C7 

C6 


C2P0s4C 

00 

C3 

A9 

5A 

9D 

0C 

C7 

D8 


C2F8:20 

AD 

C3 

A0 

00 

20 

E4 

C3 

8A 


C300:EE 

14 

C7 

AE 

14 

C7 

BD 

0C 

2F 


C308:C7 

DD 

06 

C7 

F0 

0C 

DE 

0C 

A9 


C310SC7 

4E 

13 

C7 

4E 

13 

C7 

4C 

88 


C318s 27 

C3 

A9 

5A 

9D 

0C 

C7 

20 

CB 


0320:AD 

C3 

A0 

00 

20 

20 

C4 

AD 

3C 


0328:14 

C7 

4D 

17 

C7 

D0 

7D 

AE 

FI 


C330:14 

C7 

4E 

13 

C7 

B0 

08 

BD 

7D 


C338 sIB 

C7 

F0 

0B 

4C 

AC 

C3 

A9 

54 


0340:00 

9D 

IB 

C7 

4C 

AC 

C3 

BD 

69 


0348:00 

C7 

8D 

05 

C7 

BD 

06 

C7 

CC 


C350:8D 

0B 

C7 

BD 

FF 

C6 

8D 

04 

70 


C358:C7 

BD 

05 

C7 

8D 

0A 

C7 

A9 

IE 


0360:00 

9D 

FF 

C6 

9D 

00 

C7 

9D 

D5 


0368:05 

C7 

9D 

06 

C7 

BD 

00 

D0 

7E 


0370:8D 

05 

D0 

8D 

0B 

D0 

BD 

FF 

0A 


0378:OF 

8D 

04 

D0 

8D 

0A 

D0 

AD 

BC 


0380:12 

C7 

2D 

10 

D0 

F0 

0B 

AD 

B7 


0388:10 

D0 

09 

24 

8D 

10 

D0 

4C 

4A 


0390:9A 

C3 

AD 

10 

D0 

29 

DB 

8D 

7D 


0398:10 

D0 

A9 

07 

8D 

15 

D0 

A9 

0E 


C3A0:00 

8D 

17 

C7 

AD 

12 

C7 

49 

79 


03 A8: FF 

8D 

18 

C7 

60 

AC 

14 

C7 

B8 

r ; 

C3B0:B9 

00 

C7 

D0 

05 

A2 

00 

4C 

1A 

^ —* 

C3B8:C5 

C3 

29 

80 

F0 

05 

A2 

01 

23 


C3C0:4C 

C5 

C3 

A2 

02 

BC 

F9 

C5 

3F 

U 

C3C8:4E 

13 

C7 

B0 

03 

BC 

FC 

C5 

0B 


C3D0:4E 

13 

C7 

B0 

03 

BC 

FF 

C5 

19 

U 

C3D8:AE 

14 

C7 

98 

18 

7D 

00 

C7 

BD 

C3E0:9D 

00 

C7 

60 

BD 

00 

C7 

F0 

A4 

! 

C3E8:33 

29 

80 

F0 

1A 

BD 

01 

D0 

0E 

w 

C3F0:D9 

02 

C6 

B0 

06 

20 

0E 

C5 

5C 


C3F8:4C 

1C 

C4 

DE 

01 

D0 

DE 

07 

44 

— 

0400: D0 

20 

EA 

C4 

4C 

IF 

C4 

BD 

C9 


0408:01 

D0 

C8 

D9 

02 

C6 

90 

06 

4F 


81 
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n 


C410:20 0E C5 4C 
C418sD0 FE 07 D0 
C420:BD 00 C7 F0 
C428sFF CF D9 06 
0430:10 D0 2D 12 
C438:B4 C4 B0 06 
0440:85 04 DE FF 
0448:10 3F AD 12 
0450:10 D0 8D 10 
0458:BD FF CF 08 
0460:13 AD 10 D0 
0468:0B 20 8D 04 
0470:05 40 89 04 
0478:05 D0 D0 09 
0480:10 D0 6 d 10 
0488:60 20 EA 04 
0490:57 AD 17 07 
0498:CF 09 36 10 
C4A0:40 B3 04 09 
C4A8:90 20 D2 FF 
C4B0:C7 A0 0A 60 
C4B8:AD 17 07 D0 
C4C0:C9 24 30 06 
C4C8:DA 04 09 20 
C4D0:20 D2 FF A9 
C4D8:A0 23 60 AD 
C4E0:30 06 09 A6 
C4E8:18 60 BD 00 
C4F0:52 30 05 A9 
C4F8:9D 06 07 60 
0500:A9 AE 9D 00 
0508:06 07 FE 06 
0510:07 49 FF 9D 
0518:07 60 A9 81 
0520:00 A0 02 18 
0528:B0 20 D2 FF 
0530:05 A9 AE 20 
0538:20 F0 FF A9 
0540:A2 21 20 07 
0548:D2 FF A2 01 
0550:A2 0A 20 E3 
0558:0F 20 F0 FF 
0560:05 A2 01 A0 
0568:A2 15 20 E3 
0570:D2 FF A2 03 
0578:FF A9 B0 20 
0580:20 07 05 A9 
0588:A2 16 20 F0 
0590:D2 FF A2 21 
0598:BD 20 D2 FF 
C5A0:FF A9 05 20 


89 04 FE 01 09 
20 EA 04 60 4E 
60 10 31 BD F3 
06 B0 13 AD 0E 
07 D0 0B 20 74 
20 0E 05 40 D4 
CF DE 05 D0 6E 
07 49 FF 2D 11 
D0 40 89 04 58 
D9 06 06 90 40 
2D 12 07 F0 20 
B0 06 20 0E 69 
FE FF CF FE 04 
AD 12 07 0D B5 
D0 20 EA 04 9A 
60 E0 05 D0 55 
D0 52 BD FF DB 
06 20 DB 04 71 
38 30 3F A9 ID 
A9 01 8D IF 6E 
E0 05 D0 30 7A 
2B BD FF CF 05 
20 DB 04 40 E4 
10 18 A9 9E FE 
02 8D IF 07 06 
05 D0 09 7B DC 
10 02 38 60 01 
07 30 0D 09 31 
52 9D 00 07 BB 
09 AE 10 05 FF 
07 49 FF 9D 00 
07 60 BD 00 04 
00 07 FE 00 08 
20 D2 FF A2 DB 
20 F0 FF A9 04 
A2 21 20 C7 10 
D2 FF A2 02 BE 
ED 20 D2 FF 40 
05 A9 BD 20 56 
08 20 F0 FF 4A 
05 A2 01 A0 4D 
A2 21 20 E3 4F 
1C 20 F0 FF E4 
05 A9 99 20 F4 
A0 02 20 F0 28 
D2 FF A2 21 83 
AE 20 D2 FF FC 
FF A9 AD 20 20 
20 07 05 A9 41 
A2 04 20 F0 BB 
D0 05 A2 10 20 


n 

n 

n 

n 



n 

H 

n 


82 



C5A8:20 

F0 

FF 

A9 

05 

20 

D0 

C5 

2B 

C5B0sA2 

04 

A0 

25 

20 

F0 

FF 

A9 

63 

C5B8s05 

20 

D0 

C5 

A2 

10 

20 

F0 

CB 

C5C0:FF 

A9 

05 

20 

D0 

C5 

60 

A9 

61 

C5C8:C0 

20 

D2 

FF 

CA 

10 

F8 

60 

FF 

C5D0s8D 

22 

C7 

A9 

DD 

20 

D2 

FF 

54 

C5D8:E8 

18 

20 

F0 

FF 

CE 

22 

C7 

39 

C5E0S10 

FI 

60 

BC 

0A 

C6 

CA 

BD 

87 

C5E8:0A 

C6 

20 

D2 

FF 

CA 

BD 

0A 

0D 

C5F0:C6 

20 

D2 

FF 

CA 

88 

D0 

F6 

53 

C5F8:60 

00 

01 

FF 

FF 

FF 

FE 

01 

D3 

C600:02 

01 

4F 

D2 

48 

D9 

2C 

2D 

15 

C608:25 

34 

30 

20 

3A 

45 

4C 

50 

0D 

C610s52 

55 

50 

9C 

09 

30 

20 

3A 

73 

C618:57 

4F 

4C 

4C 

45 

59 

9E 

09 

49 

C620S4E 

55 

52 

2D 

4E 

2D 

50 

4D 

5C 

C628:55 

42 

9F 

0A 

52 

45 

56 

4F 

29 

C630:20 

45 

4D 

41 

47 

9F 

09 

54 

FB 

C638:45 

53 

45 

52 

20 

4F 

54 

20 

12 

C640:45 

52 

49 

46 

20 

53 

53 

45 

CC 

C648:52 

50 

9A 

13 

18 

00 

00 

18 

70 

C650S00 

00 

18 

00 

00 

18 

00 

00 

41 

C658:3C 

00 

00 

66 

00 

00 

C3 

00 

FI 

C660:01 

81 

80 

3F 

00 

FC 

3F 

00 

45 

C668 jFC 

01 

81 

80 

00 

C3 

00 

00 

FB 

C670:66 

00 

00 

3C 

00 

00 

18 

00 

25 

C678:00 

18 

00 

00 

18 

00 

00 

18 

E4 

C680:A0 

30 

A0 

31 

A0 

32 

A0 

33 

D3 

C688:A0 

34 

A0 

35 

A0 

36 

A0 

37 

31 

C690:A0 

38 

A0 

39 

31 

30 

31 

31 

02 

C698:31 

32 

31 

33 

31 

34 

31 

35 

96 



Program 6 

Ringside Karate 


n 


n 

m 

! I 

n 

n 


After you've typed in "MLX" and saved it to tape or disk, load 
and run the program. It will ask you to provide two addresses 
before you can begin entering "Ringside Karate." The ad¬ 
dresses are 

Starting Address: 3000 
Ending Address: 45BF 

When you've finished typing in the game (it will probably 
take you more than one typing session), make sure you save a 
copy to tape or disk before exiting MLX. 


Ringside Karate 

For mistake-proof program entry , use "MLX: Machine Language Entry Program " to type in 
this program. 


3000:00 

0F 

C0 

00 

15 

50 

00 

3F 

65 


3008:F0 

00 

3F 

A0 

00 

3F 

B0 

00 

31 


3010:3B 

A8 

00 

3A 

A0 

00 

2A 

A0 

D5 


3018:00 

2A 

00 

00 

3A 

00 

00 

5E 

33 


3020:70 

01 

57 

5C 

01 

75 

57 

01 

37 


3028:5D 

55 

03 

57 

5A 

00 

D5 

AA 

8B 


3030:00 

36 

A8 

00 

ID 

70 

00 

15 

F2 


3038:70 

00 

15 

70 

00 

3F 

F0 

0F 

68 


3040:00 

00 

00 

00 

00 

00 

00 

00 

A0 


3048:00 

00 

00 

00 

00 

00 

00 

00 

A8 


3050:00 

00 

00 

00 

00 

00 

00 

00 

B0 


3058:00 

00 

00 

00 

00 

00 

02 

00 

BC 


3060:00 

02 

80 

00 

0A 

C0 

00 

6B 

10 


3068:00 

00 

6C 

00 

00 

70 

00 

00 

18 


3070:C0 

00 

00 

00 

00 

00 

00 

00 

31 

( \ 

3078:00 

00 

00 

00 

00 

00 

00 

0B 

E3 

3080:00 

15 

70 

00 

55 

5C 

00 

55 

A5 


3088:5C 

01 

55 

57 

01 

55 

57 

01 

84 

n 

3090:55 

57 

05 

5F 

55 

05 

70 

15 

BC 


3098:05 

70 

15 

15 

C0 

05 

15 

C0 

90 

n 

30A0:05 

15 

C0 

05 

17 

00 

01 

17 

03 


30A8:00 

01 

17 

00 

01 

17 

0F 

01 

AF 

n 

30B0:17 

3F 

Cl 

2B 

FF 

FE 

3F 

C0 

92 

30B8:3F 

00 

00 

00 

00 

00 

00 

0F 

C7 


30C0:00 

00 

00 

00 

00 

00 

00 

00 

21 

n 

30C8:00 

00 

00 

00 

00 

00 

00 

00 

29 

30D0:00 

00 

C0 

00 

00 

C0 

00 

00 

4C 

n 


84 



30D8:C0 

00 

00 

70 

00 

00 

70 

00 

81 

30E0:00 

70 

00 

00 

70 

00 

00 

70 

51 

30E8 s00 

00 

70 

00 

00 

70 

00 

00 

19 

30F0:70 

00 

00 

AC 

00 

00 

FC 

00 

4E 

30F8:00 

00 

00 

00 

00 

00 

00 

0F 

68 

3100:00 

15 

70 

00 

55 

5C 

00 

55 

27 

3108:5F 

01 

55 

57 

01 

55 

57 

01 

87 

3110:55 

57 

01 

5F 

55 

01 

70 

15 

AD 

3118:01 

70 

15 

01 

70 

05 

01 

70 

D3 

3120:05 

01 

70 

05 

01 

5C 

01 

01 

20 

3128:5C 

01 

00 

57 

01 

00 

5B 

Cl 

EE 

3130:00 

6F 

FI 

00 

BF 

FE 

03 

F0 

9D 

3138:0F 

00 

00 

00 

00 

00 

00 

0F 

31 

3140:00 

00 

00 

00 

00 

00 

00 

00 

A2 

3148:FC 

00 

01 

55 

00 

03 

FF 

00 

AA 

3150:03 

FA 

00 

03 

FB 

00 

03 

BA 

C3 

3158:00 

03 

AA 

00 

02 

AA 

00 

02 

8D 

3160:A0 

00 

03 

A0 

00 

05 

E7 

00 

61 

3168:15 

75 

00 

ID 

55 

00 

ID 

55 

BE 

3170:00 

17 

55 

00 

15 

A9 

00 

35 

C7 

3178:A9 

00 

0F 

57 

00 

01 

57 

00 

B9 

3180:00 

00 

00 

00 

00 

00 

00 

00 

E2 

3188:00 

00 

00 

00 

00 

00 

00 

00 

EA 

3190:00 

00 

00 

00 

00 

80 

00 

00 

F4 

3198:00 

00 

00 

00 

00 

00 

00 

00 

FA 

31A0:00 

00 

00 

00 

FF 

C2 

80 

55 

64 

31A8:6A 

80 

55 

6A 

80 

5F 

C0 

00 

B4 

31B0:70 

00 

00 

C0 

00 

00 

00 

00 

57 

31B8:00 

00 

00 

00 

00 

00 

00 

00 

IB 

31C0:00 

01 

57 

00 

03 

FF 

00 

01 

67 

31C8:57 

00 

01 

57 

00 

01 

57 

00 

IF 

31D0:01 

55 

00 

01 

55 

00 

01 

55 

IB 

31D8:00 

01 

5D 

00 

01 

5C 

00 

01 

A1 

31E0:5C 

00 

05 

5C 

00 

15 

70 

00 

0D 

31E8:55 

C0 

01 

57 

00 

05 

5C 

00 

88 

31F0:15 

70 

0F 

0A 

70 

FF 

02 

AF 

B3 

31F8:FF 

0F 

F0 

00 

00 

00 

00 

00 

3D 

3200:00 

00 

00 

00 

00 

00 

00 

00 

64 

3208:00 

00 

00 

00 

C0 

00 

00 

70 

E2 

3210:00 

00 

5C 

00 

00 

57 

00 

00 

5D 

3218:55 

C0 

00 

15 

C0 

00 

35 

C0 

D9 

3220:00 

35 

C0 

00 

05 

C0 

00 

05 

1A 

3228:C0 

00 

05 

C0 

00 

05 

C0 

00 

2F 

3230:C5 

C0 

00 

C5 

C0 

00 

FA 

B0 

B0 

3238:00 

FF 

F0 

00 

00 

00 

00 

00 

BA 

3240:00 

3F 

00 

00 

55 

40 

00 

FF 

20 

3248:C0 

00 

FE 

80 

00 

FE 

C0 

00 

72 

3250:EE 

A0 

00 

EA 

80 

00 

AA 

80 

DC 

3258:00 

A8 

00 

00 

A8 

00 

00 

EA 

17 

3260:D5 

00 

7A 

D5 

01 

5F 

55 

01 

8D 

3268:55 

50 

05 

55 

50 

05 

55 

50 

13 



Chapter 2 


3270:15 

D5 

54 

17 

05 

57 

15 

A5 

20 

3278:5D 

05 

A1 

75 

00 

00 

D5 

00 

04 

3280:00 

00 

00 

00 

00 

00 

00 

00 

E4 

3288:00 

00 

00 

00 

00 

00 

00 

00 

EC 

3290:A0 

00 

00 

A0 

00 

02 

B0 

00 

B8 

3298:6A 

00 

00 

6B 

00 

00 

60 

00 

FI 

32A0:00 

70 

00 

00 

00 

00 

18 

00 

57 

32A8:01 

58 

00 

15 

58 

00 

55 

50 

BE 

32B0:05 

55 

50 

15 

55 

F0 

55 

50 

3F 

32B8:00 

55 

70 

00 

55 

00 

00 

00 

2E 

32C0:00 

03 

55 

00 

00 

55 

00 

00 

E5 

32C8:55 

00 

00 

55 

00 

01 

55 

00 

DB 

32D0:01 

57 

00 

01 

50 

00 

01 

50 

D0 

32D8:00 

05 

70 

00 

05 

70 

00 

05 

7B 

32E0:70 

00 

15 

00 

00 

15 

00 

00 

02 

32E8:15 

00 

00 

15 

00 

00 

17 

00 

8D 

32F0:00 

57 

00 

00 

57 

00 

00 

AB 

91 

32F8:0F 

00 

FF 

FF 

00 

00 

00 

00 

E4 

3300:57 

00 

00 

70 

00 

00 

70 

00 

BA 

3308:00 

00 

00 

00 

00 

00 

00 

00 

9E 

3310:00 

00 

00 

00 

00 

00 

00 

00 

76 

3318:00 

00 

00 

00 

00 

00 

00 

00 

7E 

3320:00 

00 

00 

00 

00 

00 

00 

00 

86 

3328:00 

00 

00 

00 

00 

00 

00 

00 

8E 

3330:00 

00 

00 

0F 

FC 

00 

FF 

FF 

6F 

3338:FF 

FC 

0F 

FF 

00 

00 

00 

00 

BF 

3340:00 

FC 

00 

01 

55 

00 

03 

FF 

A6 

3348:00 

03 

FA 

00 

03 

FB 

00 

03 

D9 

3350:BA 

80 

03 

AA 

00 

02 

AA 

00 

90 

3358:02 

A0 

00 

03 

A0 

00 

01 

E0 

FF 

3360:00 

05 

75 

55 

05 

55 

55 

05 

39 

3368:D5 

FF 

05 

75 

00 

01 

5F 

00 

3B 

3370:03 

55 

6A 

00 

D5 

6A 

00 

55 

A8 

3378:C0 

00 

55 

00 

00 

FF 

00 

00 

77 

3380:00 

00 

00 

00 

00 

00 

00 

00 

E6 

3388:00 

00 

00 

00 

B0 

00 

00 

AC 

21 

3390:00 

00 

B0 

00 

00 

B0 

00 

00 

OF 

3398:B0 

00 

00 

B0 

00 

00 

B0 

00 

03 

33A0:00 

B0 

00 

00 

B0 

00 

00 

00 

B8 

33A8:00 

00 

00 

00 

00 

F0 

00 

00 

D2 

33B0 :A0 

00 

00 

80 

00 

00 

20 

00 

AF 

33B8:00 

00 

00 

00 

00 

00 

00 

0B 

2A 

3300:00 

15 

7F 

00 

55 

55 

00 

55 

B1 

3308:55 

00 

55 

55 

01 

55 

55 

01 

E2 

33D0:55 

FF 

01 

5F 

00 

01 

50 

00 

B4 

33D8:01 

70 

00 

01 

70 

00 

01 

70 

El 

33E0:00 

01 

70 

00 

01 

70 

00 

01 

60 

33E8:70 

00 

01 

70 

00 

01 

70 

00 

93 

33F0:01 

70 

0F 

02 

B3 

FF 

03 

FF 

99 

33F8:F0 

00 

00 

00 

00 

00 

00 

0F 

E6 

3400:00 

00 

00 

00 

00 

00 

50 

00 

09 



u 


Type It In 


lJ 

3408:00 

50 

00 

00 

50 

00 

00 

50 

57 


3410:00 

00 

50 

00 

00 

50 

00 

00 

C3 

Li 

3418:50 

00 

00 

A0 

00 

00 

20 

00 

F2 

3420:00 

20 

00 

00 

00 

00 

00 

00 

90 


3428:00 

00 

00 

00 

00 

00 

00 

00 

90 

u 

3430:00 

00 

00 

C0 

00 

00 

F0 

00 

86 


3438:00 

00 

00 

00 

00 

00 

00 

00 

A0 


3440:00 

00 

00 

00 

00 

00 

00 

00 

A8 


3448:00 

00 

00 

00 

00 

00 

00 

00 

B0 


3450:00 

00 

00 

00 

00 

00 

00 

00 

B8 


3458:00 

00 

00 

00 

00 

00 

00 

00 

C0 


3460:00 

00 

00 

00 

00 

00 

00 

00 

C8 


3468:03 

F0 

00 

05 

54 

00 

0F 

FC 

9C 


3470:00 

0F 

E8 

00 

0F 

EC 

00 

0E 

F3 


3478:EA 

00 

0E 

A8 

00 

0A 

A8 

02 

IE 


3480:00 

00 

00 

00 

00 

00 

00 

00 

E8 


3488:00 

00 

00 

00 

00 

00 

00 

00 

F0 


3490:00 

00 

00 

00 

00 

00 

00 

00 

F8 


3498:00 

00 

00 

00 

00 

00 

00 

00 

01 


34A0:00 

00 

00 

00 

00 

00 

00 

00 

09 


34A8:00 

00 

00 

00 

00 

00 

00 

00 

11 


34B0:00 

00 

00 

00 

00 

00 

00 

00 

19 


34B8:00 

00 

00 

00 

00 

00 

00 

02 

23 


34C0:00 

0A 

80 

00 

0E 

80 

00 

07 

35 


34C8:97 

00 

05 

D5 

00 

15 

55 

00 

F9 


34D0:55 

55 

00 

55 

5C 

01 

5D 

5C 

8C 


34D8:03 

C5 

5C 

0D 

75 

5C 

0D 

5F 

27 


34E0:FF 

35 

55 

55 

35 

D5 

55 

35 

77 


34E8:F5 

55 

35 

C5 

55 

B5 

C0 

00 

A7 


34F0:B5 

C0 

FF 

BA 

CF 

FF 

FF 

FF 

8E 


34F8:FF 

00 

00 

00 

00 

00 

00 

02 

63 


3500:00 

00 

00 

00 

00 

00 

00 

00 

6A 


3508:00 

C0 

00 

00 

70 

00 

00 

5F 

85 


3510:00 

00 

55 

A8 

00 

15 

A8 

00 

55 


3518:0F 

00 

00 

35 

C0 

00 

D5 

70 

7F 


3520:00 

55 

50 

00 

55 

5C 

00 

50 

56 


3528:57 

00 

40 

15 

C0 

00 

15 

A0 

68 


3530:FF 

05 

A8 

FF 

01 

FC 

FF 

FF 

EC 


3538:FC 

00 

00 

00 

00 

00 

00 

02 

23 

L_i 

3540:00 

00 

00 

00 

00 

00 

00 

00 

AA 


3548:00 

00 

00 

00 

00 

00 

00 

00 

B2 

L_i 

3550:00 

00 

00 

00 

00 

00 

00 

00 

BA 

HP 

3558:00 

00 

00 

00 

00 

00 

00 

00 

C2 

U 

3560:00 

00 

00 

00 

00 

00 

00 

00 

CA 

3568:00 

00 

00 

00 

00 

00 

00 

00 

D2 


3570:00 

00 

00 

00 

00 

00 

00 

00 

DA 

L 

3578:00 

00 

00 

00 

00 

00 

00 

00 

E2 

3580:00 

00 

00 

00 

00 

00 

00 

00 

EA 

! 

3588:00 

00 

00 

00 

00 

00 

00 

00 

F2 


3590:00 

00 

00 

00 

00 

00 

00 

00 

FA 


3598:00 

00 

00 

00 

00 

00 

00 

00 

03 


87 



Chapter 2 


35A0 s00 

00 

00 

00 

00 

00 

00 

00 

0B 

35A8 s 00 

00 

00 

00 

00 

00 

00 

00 

13 

35B0S00 

00 

00 

00 

00 

00 

00 

00 

IB 

35B8 s 00 

00 

00 

00 

00 

00 

00 

00 

23 

35C0:00 

00 

00 

00 

00 

00 

00 

00 

2B 

3508:00 

00 

00 

00 

00 

00 

00 

00 

33 

35D0:00 

00 

00 

00 

00 

00 

00 

00 

3B 

35D8:00 

00 

00 

00 

80 

00 

IE 

A0 

24 

35E0:00 

DE 

A1 

55 

DE 

AB 

55 

DF 

BC 

35E8:EA 

D5 

DF 

AB 

5F 

DF 

ED 

55 

A0 

35F0:FF 

FF 

55 

00 

03 

D5 

00 

00 

75 

35F8:FF 

00 

00 

00 

00 

00 

00 

00 

63 

3600:00 

00 

00 

00 

00 

00 

00 

00 

6C 

3608:00 

00 

00 

00 

00 

00 

00 

00 

74 

3610:00 

00 

00 

00 

00 

00 

07 

00 

8A 

3618:00 

15 

00 

00 

55 

70 

01 

55 

A5 

3620:70 

D5 

5D 

70 

D5 

71 

70 

D7 

1A 

3628:01 

70 

D5 

7F 

70 

75 

55 

F2 

3B 

3630:5D 

55 

5E 

57 

F5 

5A 

D6 

AD 

56 

3638:5A 

F6 

AF 

FF 

3F 

F0 

00 

00 

43 

3640:00 

00 

00 

00 

00 

00 

00 

00 

AC 

3648:00 

00 

00 

00 

00 

00 

00 

00 

B4 

3650:00 

00 

00 

00 

00 

00 

00 

00 

BC 

3658:00 

00 

00 

00 

00 

00 

00 

00 

C4 

3660:B0 

00 

02 

B0 

00 

00 

AC 

00 

C9 

3668:00 

2B 

00 

00 

0B 

00 

00 

03 

FA 

3670:00 

00 

03 

00 

00 

00 

00 

00 

3D 

3678:00 

00 

00 

00 

00 

00 

00 

0B 

EF 

3680:03 

F0 

00 

05 

54 

00 

0F 

FC 

B8 

3688:00 

0A 

FC 

00 

0E 

FC 

00 

2A 

A5 

3690:EC 

00 

0A 

AC 

00 

0A 

A8 

00 

F8 

3698:00 

A8 

00 

00 

A4 

00 

07 

9F 

02 

36A0 :C0 

IF 

7F 

00 

7F 

F7 

F0 

FF 

EE 

36A8:DF 

F0 

AF 

7F 

F0 

AA 

FD 

C0 

IE 

36B0:2A 

77 

00 

03 

DF 

00 

03 

FF 

60 

36B8:00 

03 

FF 

00 

01 

57 

00 

0F 

5A 

3600:00 

00 

00 

00 

00 

00 

00 

00 

2D 

3608:00 

00 

00 

00 

00 

00 

00 

00 

35 

36D0:00 

00 

00 

00 

00 

00 

00 

00 

3D 

36D8:00 

00 

00 

00 

00 

02 

00 

00 

4D 

36E0S02 

00 

00 

02 

00 

00 

02 

00 

72 

36E8:00 

02 

00 

00 

02 

00 

00 

02 

E7 

36F0:00 

00 

02 

00 

00 

05 

00 

00 

B1 

36F8:0F 

00 

00 

00 

00 

00 

00 

0F 

FB 

3700:02 

AB 

00 

0A 

AA 

00 

0A 

AA 

12 

3708:00 

2A 

AA 

B0 

2A 

AA 

B0 

2A 

49 

3710:AA 

B0 

AA 

FA 

AC 

AB 

02 

AC 

C9 

3718:AB 

02 

AC 

AC 

00 

AB 

AC 

00 

45 

3720:AB 

AC 

00 

AB 

B0 

00 

2B 

B0 

D6 

3728:00 

2B 

B0 

00 

2B 

B0 

F0 

2B 

A0 

3730:B3 

FC 

2B 

7F 

FF 

17 

FC 

03 

6E 



3738 

:FF 

00 
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20 

20 

20 

20 

20 

0B 

4588:20 

20 

20 

20 

20 

20 

20 

20 

13 
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n 

n 


4590:20 20 20 20 
4598:20 20 20 91 
45A0:57 48 49 54 
45A8:4E 53 21 00 
45B0:43 4B 20 57 
45B8:00 00 00 00 


20 

20 

20 

20 

IB 

91 

92 

00 

9C 

CB 

45 

20 

57 

49 

F9 

9C 

42 

4C 

41 

IB 

49 

4E 

53 

21 

74 

00 

00 

00 

00 

43 


n 

n 

n 


n 

n 


98 


n 

n 

n 



Program 7 

Eagles and Gators 


You need a copy of "MLX" on tape or disk before you can 
type in "Eagles and Gators." When you load and run MLX, 
the prompts will ask you for a starting address and an ending 
address. For the Eagles and Gators data, they are as follows: 

Starting Address: 0801 
Ending Address: 1CE8 

Follow the MLX instructions carefully, and be sure to save 
a copy of the data to disk or tape before you leave MLX. 

Eagles and Gators 

For mistake-proof program entry, use "MLX; Machine Language Entry Program" to type in 
this program. 


0801:18 

08 

00 

00 

9E 

32 

30 

37 

74 

0809:36 

3A 

8F 

22 

14 

14 

14 

14 

04 

0811:45 

41 

47 

4C 

45 

53 

00 

00 

39 

0819:00 

00 

00 

A0 

00 

A9 

56 

85 

0C 

0821:03 

A9 

08 

85 

04 

A9 

00 

85 

C2 

0829:05 

A9 

40 

85 

06 

A9 

E3 

85 

AA 

0831:FB 

A9 

1C 

85 

FC 

A5 

03 

E5 

EF 

0839:FB 

A5 

04 

E5 

FC 

B0 

13 

B1 

12 

0841:03 

91 

05 

E6 

03 

D0 

02 

E6 

8C 

0849:04 

E6 

05 

D0 

02 

E6 

06 

4C 

C6 

0851:36 

08 

4C 

00 

40 

A9 

3B 

85 

AC 

0859:FB 

A9 

03 

85 

FC 

A0 

BF 

A9 

IE 

0861:00 

91 

FB 

88 

D0 

F9 

A9 

FF 

9F 

0869:85 

FB 

A9 

D3 

85 

FC 

A0 

19 

28 

0871:A9 

00 

91 

FB 

88 

D0 

F9 

A9 

6D 

0879:93 

20 

D2 

FF 

A9 

00 

8D 

20 

3E 

0881:D0 

8D 

21 

D0 

18 

A0 

0B 

A2 

8A 

0889:05 

20 

F0 

FF 

A9 

00 

85 

FB 

96 

0891:A9 

45 

85 

FC 

20 

AD 

42 

18 

9C 

0899:A0 

0C 

A2 

08 

20 

F0 

FF 

A9 

40 

08A1:14 

85 

FB 

A9 

45 

85 

FC 

20 

91 

08 A9 :AD 

42 

20 

IE 

43 

18 

A0 

0A 

CC 

08B1:A2 

0E 

20 

F0 

FF 

A9 

26 

85 

22 

08B9:FB 

A9 

45 

85 

FC 

20 

AD 

42 

39 

08C1:20 

CD 

42 

18 

A0 

0D 

A2 

11 

AE 

08C9:20 

F0 

FF 

A9 

3B 

85 

FB 

A9 

52 

08D1:45 

85 

FC 

A0 

00 

20 

BD 

42 

CD 
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n 


08D9:AD 04 DC 8D 
08E1 :C9 7E P0 07 
08E9:4C 80 40 20 
08P1sFF C9 00 P0 
08F9 s 78 C9 4E F0 
0901:A9 93 20 D2 
0909:20 6D 41 18 
0911:20 F0 FF A9 
0919:45 85 FC 20 
0921:14 A2 0B 20 
0929:85 FB A9 45 
0931:42 18 A0 11 
0939 :FF A9 68 85 
0941:FC 20 AD 42 
0949:E4 FF C9 00 
0951:D0 03 4C E2 
0959:03 4C EF 40 
0961:38 E9 30 8D 
0969:20 D2 FF 20 
0971:54 A9 93 20 
0979:42 18 A0 04 
0981:FF A9 7C 85 
0989:FC A9 05 85 
0991:FE A0 00 B1 
0999:A5 FB C9 FF 
09A1:E6 FB A5 FB 
09A9:E5 FE 90 E7 
09B1:67 03 C9 00 
09B9:03 C9 00 F0 
09C1 :AB 40 A9 40 
09C9:85 FC A9 E4 
09D1:A5 FD 91 FB 
09D9:88 C0 01 D0 
09E1:FB A0 08 A9 
09E9:0D 91 FB 88 
09F1:85 FB A9 F2 
09F9:A5 FD 91 FB 
0A01:88 C0 01 D0 
0A09:FB A9 59 85 
0A11:00 91 FB 88 
0A19:8D 6C 03 A9 
0A21:A9 03 8D 6D 
0A29:A9 71 85 FB 
0A31:A0 08 A5 FD 
0A39:0A 85 FD 88 
0A41:85 FB A9 E6 
0A49:A5 FD 91 FB 
0A51:FD 88 D0 F4 
0A59:A0 10 A9 FF 
0A61:01 91 FB 88 


86 02 B1 FB D1 
20 D2 FF C8 1A 
9F FF 20 E4 6C 
CE C9 59 F0 C4 
03 4C 6E 40 F7 
FF 20 74 42 A9 
A0 11 A2 09 C7 
4C 85 FB A9 24 
AD 42 18 A0 18 
F0 FF A9 5E 82 
85 FC 20 AD 94 
A2 0F 20 F0 12 
FB A9 45 85 B1 
20 9F FF 20 53 
F0 F6 C9 51 4F 
FC C9 31 B0 66 
C9 3A B0 E4 7F 
3F 03 A9 93 D5 
EA 4B 4C 0F 6E 
D2 FF 20 74 D7 
A2 00 20 F0 4D 
FB A9 45 85 7C 
FD A9 47 85 28 
FB 20 D2 FF 6C 

90 02 E6 FC 0E 
C5 FD A5 FC 09 
20 EC 50 AD 02 
F0 09 AD 6A E2 
02 D0 ED 4C 4A 
85 FB A9 03 65 
85 FD A0 08 CE 
E6 FD E6 FD 23 
F3 A9 EA 91 3B 
48 85 FB A9 AF 
D0 F9 A9 50 01 
85 FD A0 08 97 
E6 FD E6 FD 4B 
F3 A9 F2 91 74 
FB A0 07 A9 23 
D0 F9 A9 5B AE 
4E 8D 6E 03 92 
03 8D 6F 03 83 
A9 32 85 FD FD 

91 FB 18 69 42 
D0 F4 A9 79 23 
85 FD A0 08 28 
38 E9 0A 85 A4 
A9 81 85 FB 4A 
91 FB 88 A9 2E 
D0 F4 A9 82 92 


n 

n 

n 

n 


n 

n 

n 

n 


100 


H 

n 



0A69j8D 

92 

03 

A9 

8A 

8D 

94 

03 

9A 

0A71sA9 

72 

8D 

96 

03 

A9 

7A 

8D 

53 

0A79:98 

03 

A9 

03 

8D 

93 

03 

8D 

4E 

0A81:95 

03 

8D 

97 

03 

8D 

99 

03 

D0 

0A89:A9 

IE 

8D 

00 

D0 

A9 

46 

8D 

F2 

0A91:02 

D0 

A9 

6E 

8D 

04 

D0 

A9 

BE 

0A99s 96 

8D 

06 

D0 

A9 

BE 

8D 

08 

95 

0AA1:D0 

A9 

E6 

8D 

0A 

D0 

A9 

0F 

34 

0AA9:8D 

0C 

D0 

A9 

37 

8D 

0E 

D0 

19 

0 AB1: A9 

C0 

8D 

10 

D0 

A9 

00 

8D 

38 

0AB9:17 

D0 

8D 

ID 

D0 

A9 

01 

8D 

CD 

0AC1:18 

D4 

EA 

A9 

FF 

8D 

15 

D0 

40 

0AC9;60 

78 

A9 

00 

8D 

0E 

DC 

A9 

69 

0AD1:8C 

8D 

14 

03 

A9 

4A 

8D 

15 

E8 

0AD9:03 

A9 

0F 

8D 

88 

4A 

A9 

96 

EB 

0AE1:8D 

89 

4A 

A9 

00 

8D 

8A 

4A 

98 

0AE9sA9 

03 

8D 

8B 

4A 

AD 

11 

D0 

F9 

0AF1:29 

7F 

8D 

11 

D0 

AD 

89 

4A 

D7 

0AF9s8D 

12 

D0 

A9 

01 

8D 

1A 

D0 

51 

0B01:58 

60 

A0 

00 

B1 

FB 

C9 

7E 

FE 

0B09:F0 

07 

20 

D2 

FF 

C8 

4C 

AF 

F5 

0B11:42 

60 

EE 

01 

D0 

CE 

03 

D0 

E6 

0B19:CE 

0D 

D0 

EE 

0F 

D0 

20 

CA 

A9 

0B21:44 

60 

A9 

IE 

8D 

00 

D0 

A9 

40 

0B29:46 

8D 

02 

D0 

A9 

C0 

8D 

10 

8E 

0B31:D0 

A9 

0F 

8D 

0C 

D0 

A9 

37 

03 

0B39:8D 

0E 

D0 

A9 

07 

8D 

27 

D0 

DB 

0B41s8D 

2E 

D0 

A9 

0D 

8D 

28 

D0 

IE 

0B49:8D 

2D 

D0 

A9 

C3 

8D 

15 

D0 

75 

0B51:A9 

FF 

8D 

F8 

07 

8D 

FF 

07 

F2 

0B59 sA9 

E4 

8D 

F9 

07 

A9 

EA 

8D 

11 

0B61:FE 

07 

60 

EA 

EA 

A0 

00 

B1 

FE 

0B69 sFB 

91 

FD 

C8 

C0 

40 

F0 

02 

19 

0B71:D0 

F5 

60 

A9 

08 

85 

FB 

A9 

0C 

0B79:47 

85 

FC 

A9 

C0 

85 

FD 

A9 

90 

0B81:3A 

85 

FE 

20 

10 

43 

A9 

80 

59 

0B89:85 

FD 

20 

10 

43 

A9 

48 

85 

BD 

0B91jFB 

A9 

00 

85 

FD 

A9 

3B 

85 

FA 

0B99 jFE 

20 

10 

43 

A9 

40 

85 

FD 

C4 

0BA1:A9 

3A 

85 

FE 

20 

10 

43 

A9 

2D 

0BA9:88 

85 

FB 

A9 

00 

85 

FD 

20 

B1 

0BB1:10 

43 

A9 

40 

85 

FD 

A9 

3B 

8C 

0BB9:85 

FE 

20 

10 

43 

A9 

C8 

85 

2F 

0BC1sFB 

A9 

80 

85 

FD 

20 

10 

43 

7C 

0BC9:A9 

C0 

85 

FD 

A9 

39 

85 

FE 

B1 

0BD1:20 

10 

43 

A9 

08 

85 

FB 

A9 

F6 

0BD9:48 

85 

FC 

A9 

80 

85 

FD 

20 

E5 

0BE1:10 

43 

A9 

C0 

85 

FD 

A9 

3B 

C4 

0BE9:85 

FE 

20 

10 

43 

A9 

48 

85 

5E 

0BF1sFB 

A9 

40 

85 

FD 

A9 

39 

85 

5F 



Chapter 2 


H 

n 


0BF9 sPE 20 10 43 
0C01 s A9 3C 85 FE 
0C09:88 85 FB A9 
0C11:10 43 A9 00 
0C19:85 FE 20 10 
0C21sFB A9 48 85 
0C29 sFD A9 3E 85 
0C31:A9 00 85 FD 
0C39 s08 85 FB A9 
0C41:80 85 FD 20 
0C49:85 FD A9 3D 
0C51:43 A9 48 85 
0C59 jFD 20 10 43 
0C61sA9 3E 85 FE 
0C69:88 85 FB A9 
0C71:3F 85 FE 20 
0C79:85 FD A9 3D 
0C81:43 A9 C8 85 
0C89 sFD 20 10 43 
0C91:A9 3F 85 FE 
0C99s08 85 FB A9 
0CA1: C0 85 FD A9 
0CA9:10 43 A9 80 
0CB1:85 FE 20 10 
0CB9sFB A9 C0 85 
0CC1sA9 80 85 FD 
0CC9 s 20 10 43 A9 
0CD1:8D 0C D4 8D 
0CD9:8D 06 D4 8D 
0CE1:D4 A9 3F 8D 
0CE9:8D 01 D4 A9 
0CF1sA9 06 8D 08 
0CF9s0E D4 A9 06 
0D01:15 8D 04 D4 
0D09 s 12 D4 A9 3F 
0D11:F7 8D 17 D4 
0D19:D4 A9 0F 8D 
0D21:3E 03 C9 2F 
0D29:03 60 A9 00 
0D31:3F 03 AD 3F 
0D39 sCE 40 03 AD 
0D41:D4 AD 3F 03 
0D49 sA9 18 8D 01 
0D51:03 8D 01 D4 
0D59:00 20 45 41 
0D61:20 26 20 47 
0D69:53 20 92 7E 
0D71s00 00 00 00 
0D79s00 00 00 9F 
0D81:20 49 4E 53 


A9 00 85 FD 24 
20 10 43 A9 0F 
40 85 FD 20 15 
85 FD A9 39 E7 
43 A9 C8 85 90 
FC A9 40 85 97 
FE 20 10 43 A6 
20 10 43 A9 20 
49 85 FC A9 D4 
10 43 A9 C0 5E 
85 FE 20 10 25 
FB A9 80 85 E3 
A9 C0 85 FD 08 
20 10 43 A9 EF 
00 85 FD A9 FC 
10 43 A9 40 8D 
85 FE 20 10 55 
FB A9 00 85 23 
A9 40 85 FD 36 
20 10 43 A9 60 
4A 85 FC A9 3D 
3C 85 FE 20 EB 
85 FD A9 3F 8E 
43 A9 48 85 28 
FD 20 10 43 7E 
A9 3C 85 FE A7 
0F 8D 05 D4 86 
13 D4 A9 F0 57 
0D D4 8D 14 98 
00 D4 A9 18 4E 
42 8D 07 D4 69 
D4 A9 0C 8D 85 
8D 0F D4 A9 DF 
8D 0B D4 8D A6 
8D 18 D4 A9 AA 
A9 22 8D 16 Cl 
15 D4 60 AD 2D 
F0 04 EE 3E FA 
8D 3E 03 EE 6C 
03 8D 0E D4 94 

40 03 8D 16 45 
C9 35 90 06 93 
D4 60 AD 3F C2 
60 8E 08 9F AA 
47 4C 45 53 81 

41 54 4F 52 D9 
00 00 00 00 6F 
00 00 00 00 8B 
57 41 4E 54 3E 
54 52 55 43 D6 


n 

n 

n 

n 


n 

n 

n 

n 

n 

n 


102 



0D89 s 54 

49 

4F 

4E 

53 

20 

3F 

7E 

07 

0D91:50 

52 

45 

53 

53 

20 

12 

59 

DE 

0D99:92 

20 

4F 

52 

20 

12 

4E 

92 

8C 

0DA1:7E 

90 

50 

49 

43 

4B 

20 

53 

98 

0DA9:4B 

49 

4C 

4C 

20 

4C 

45 

56 

ID 

0DB1:45 

4C 

7E 

28 

20 

31 

20 

63 

3D 

0DB9s 20 

39 

20 

29 

7E 

9E 

50 

52 

2A 

0DC1:45 

53 

53 

20 

12 

51 

92 

20 

DA 

0DC9:20 

54 

4F 

20 

51 

55 

49 

54 

BB 

0DD1:7E 

90 

12 

77 

11 

9D 

20 

11 

59 

0DD9:9D 

9D 

00 

00 

20 

20 

20 

92 

7E 

0DE1:63 

69 

11 

9D 

7B 

91 

91 

50 

99 

0DE9:4C 

55 

47 

20 

4A 

4F 

59 

53 

FF 

0DF1s 54 

49 

43 

4B 

53 

20 

49 

4E 

A1 

0DF9:2E 

2E 

11 

11 

7B 

91 

9D 

75 

BC 

0E01:63 

63 

63 

63 

12 

20 

20 

20 

BB 

0E09:91 

9D 

9D 

20 

91 

9D 

69 

8D 

6E 

0E11:11 

11 

11 

00 

20 

12 

50 

4F 

55 

0E19:52 

54 

20 

32 

20 

46 

4F 

52 

A5 

0E21:20 

45 

41 

47 

4C 

45 

53 

92 

EB 

0E29:20 

20 

20 

12 

50 

4F 

52 

54 

3B 

0E31:20 

31 

20 

46 

4F 

52 

20 

47 

5D 

0E39:41 

54 

4F 

52 

53 

92 

8D 

11 

2B 

0E41:00 

20 

43 

4C 

41 

4D 

50 

20 

92 

0E49:59 

4F 

55 

52 

20 

43 

52 

45 

AD 

0E51:41 

54 

55 

52 

45 

53 

20 

54 

FE 

0E59 s 4F 

20 

54 

48 

45 

20 

42 

4F 

B2 

0E61s 52 

44 

45 

52 

20 

42 

59 

8D 

CF 

0E69:11 

20 

50 

52 

45 

53 

53 

49 

AC 

0E71:4E 

47 

20 

12 

46 

49 

52 

45 

EC 

0E79:20 

42 

55 

54 

54 

4F 

4E 

92 

35 

0E81:20 

57 

48 

45 

4E 

20 

54 

48 

C4 

0E89:45 

59 

20 

48 

49 

54 

20 

49 

4C 

0E91:54 

69 

11 

9D 

62 

11 

9D 

9D 

5E 

0E99:6D 

62 

6E 

11 

9D 

9D 

2A 

11 

AC 

0EA1:9D 

7A 

8D 

91 

91 

20 

42 

4F 

D6 

0EA9 s 52 

44 

45 

52 

20 

4D 

4F 

56 

F8 

0EB1:45 

53 

20 

57 

48 

45 

4E 

20 

D2 

0EB9:53 

49 

44 

45 

53 

20 

41 

52 

9E 

0EC1s 45 

20 

55 

4E 

45 

51 

55 

41 

73 

0EC9:4C 

8D 

9F 

11 

11 

20 

20 

20 

DD 

0ED1:4D 

4F 

56 

45 

20 

52 

49 

47 

AB 

0ED9:48 

54 

20 

4F 

52 

20 

4C 

45 

19 

0EE1:46 

54 

20 

54 

4F 

20 

43 

4F 

50 

0EE9:4E 

54 

52 

4F 

4C 

20 

41 

8D 

74 

0EF1:11 

20 

20 

20 

20 

20 

20 

20 

86 

0EF9 s 20 

20 

44 

49 

46 

46 

45 

52 

73 

0F01s45 

4E 

54 

20 

43 

52 

45 

41 

11 

0F09:54 

55 

52 

45 

8D 

11 

11 

20 

38 

0F11:20 

05 

57 

49 

4E 

20 

42 

59 

D0 
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0F19:20 

50 

55 

53 

48 

49 

4E 

47 

86 

0F21:20 

4F 

50 

50 

4F 

4E 

45 

4E 

BE 

0F29 s 54 

53 

20 

4F 

46 

46 

20 

53 

IE 

0F31s 43 

52 

45 

45 

4E 

8D 

11 

11 

5E 

0F39:9E 

20 

20 

20 

20 

20 

12 

50 

AA 

0F41s 52 

45 

53 

53 

20 

46 

49 

52 

78 

0F49:45 

20 

42 

55 

54 

54 

4F 

4E 

90 

0F51:20 

54 

4F 

20 

42 

45 

47 

49 

7F 

0F59 s 4E 

92 

00 

00 

00 

00 

03 

80 

C9 

0F61:00 

0F 

C0 

02 

IF 

80 

06 

37 

B9 

0F69:80 

03 

7D 

80 

01 

FF 

A0 

00 

89 

0F71:FF 

30 

00 

7F 

E0 

00 

7F 

00 

99 

0F79:00 

7F 

E0 

00 

FF 

60 

01 

FE 

16 

0F81:00 

03 

3E 

00 

06 

3E 

00 

04 

55 

0F89:IE 

00 

00 

1C 

00 

00 

IE 

00 

B4 

0F91:00 

0E 

08 

00 

0F 

30 

00 

03 

70 

0F99:E0 

00 

01 

80 

00 

00 

0C 

00 

68 

0FA1:00 

IE 

00 

00 

3E 

00 

04 

3F 

80 

0FA9:00 

0E 

6D 

20 

03 

FF 

30 

00 

73 

0FB1:FF 

60 

00 

FF 

C0 

00 

7F 

00 

EC 

0FB9 2 00 

FF 

C0 

00 

FF 

60 

03 

FE 

76 

0FC1:00 

06 

7C 

00 

00 

7C 

00 

00 

E2 

0FC9 2 3C 

00 

00 

3C 

00 

00 

3C 

00 

42 

0FD12 00 

1C 

00 

00 

IE 

00 

00 

0F 

F6 

0FD9 sE0 

00 

03 

80 

FF 

00 

18 

00 

01 

0FE1s 00 

3C 

00 

00 

3C 

00 

04 

7E 

77 

0FE9 2 20 

0C 

5A 

30 

06 

FF 

60 

03 

5D 

0FF1sFF 

C0 

00 

FF 

00 

00 

FF 

00 

40 

0FF9 2 00 

FF 

00 

03 

FF 

C0 

06 

FF 

57 

1001260 

00 

7E 

00 

00 

7C 

00 

00 

13 

1009 2 7C 

00 

00 

3C 

00 

00 

3C 

00 

A3 

1011200 

3C 

00 

00 

3C 

00 

00 

IE 

40 

1019200 

00 

07 

80 

00 
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The Fast 
Assembler 

Yves Han 


Here’s a truly amazing machine language assem¬ 
bler. “The Fast Assembler” supports multiple 
statement lines, labels, and macrolike INCLUDE 
files. It can assemble to memory or to disk. Writ¬ 
ten very compactly, it occupies only about 2600 
bytes, leaving the rest of memory for your source 
code. It also adds to the BASIC editor several 
new features useful to both BASIC and machine 
language programmers. 


Symbolic label-based assemblers are the most convenient way 
to write machine language (ML) programs. The instructions 
are entered as source code and later assembled into object code 
(the actual ML program—the numbers in memory). And rather 
than always having to specify memory addresses, you can 
name routines with meaningful labels. It's as if you could en¬ 
ter GOSUB JOYSTICK in BASIC. 

Saving Memory by Using the BASIC Editor 

You write the source code for your ML programs for "The Fast 
Assembler" (FA) with the BASIC editor. You save the source 
code to tape or disk as you would a BASIC program, and list it 
to a printer exactly as you would list BASIC. 

The FA is an extension of the BASIC interpreter especially 
designed for writing programs in machine language. Writing it 
as a BASIC extension kept the program short (under 2600 
bytes) because many subroutines of the BASIC interpreter 
could be used. Some modifications have been made to BASIC 
to make writing programs easier by copying BASIC ROM into 
the underlying RAM. 

Even if you don't write programs in machine language, 
you can still use the assembler because of the new features 
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added to BASIC and the extra BASIC commands it adds. The 
assembler will execute a BASIC program just as normal BASIC 
would. 

Typing Fast Assembler 

You'll need a copy of "MLX" to type in The Fast Assembler. 
First enter MLX and save a copy or two. When you are ready 
to enter the data for FA, run MLX and answer the starting and 
ending address prompts as follows: 

Starting Address: 0801 
Ending Address: 1220 

After entering all the data for The Fast Assembler, save a 
copy on tape or disk. To start up FA, first load it as if it were a 
BASIC program (don't use an extra ,1 in the LOAD com¬ 
mand). Type 

LOAD "filename"# (for disk) 

LOAD"filename" (for tape) 

Press RETURN; then type 

RUN 

Press RETURN again. The enabling SYS is built into the first 
line of the program. The screen will clear, and a message will 
appear at the top of the screen, indicating FA has been en¬ 
abled. You can now start programming—in BASIC or machine 
language. 

BASIC Modifications and Enhancements 

The following changes have been made to the BASIC 
interpreter: 

• Structured listings. Spaces between the line number and the 
first character on the line are not deleted. This makes it pos¬ 
sible to indent lines and makes listings easier to read. 

• List pause. You can freeze a listing by holding down the 
SHIFT key or pressing SHIFT-LOCK. Listing can be contin¬ 
ued by releasing the SHIFT key. 

• ASCII translations and hexadecimal/binary numbers. In 
arithmetic expressions, you can use hexadecimal and binary 
numbers. Hexadecimal numbers should be preceded by $ 
and binary numbers by %. You can also use a character pre¬ 
ceded by a single quote ('A is the same as ASC("A")). The 
single quote preceding a character can be used to find the 


n 

n 


n 


n 


n 


n 


n 

n 

n 

n 


116 



The Source Code 


value of a BASIC token, as well. For example, PRINT 'END 
will print the value 128, which is the BASIC code for END. If 
you put a space between the quotation mark and the charac¬ 
ter, the ASCII value of the space will be used instead of the 
character value. 

• Variable and function names. The rules for variable and 
function names have been changed a bit. Instead of the first 
two, the first eight characters are recognized. FA recognizes 
NUMBER1 and NUMBER2 as separate variables, while ordi¬ 
nary BASIC would consider them the same variable (NU). 
Variables may contain, but not be equal to, BASIC/assembler 
commands or mnemonics: LAND is a legitimate variable 
name, even though it contains the keyword AND. But vari¬ 
able labels starting with TI or ST (reserved keywords) are not 
automatically set to zero the first time you use them. An ex¬ 
ception to this recognition of eight-character names is that 
only the first two characters of array variables are significant. 

• Keywords. Because variable and function names may contain 
keywords, FA has to be able to decide whether a keyword is 
a keyword or part of a variable or function name. The assem¬ 
bler recognizes a keyword if it's followed by a space or non- 
alphabetic character. For example, in PRINT "OK" the keyword 
PRINT will be recognized as a PRINT command, but in 

A$ = "OK":PRINTA$, the keyword PRINT is interpreted as 
part of the variable name PRINTA$. You would have to in¬ 
sert a space (PRINT A$) if you wanted to print the variable 
A$. In keywords like PRINT# or GET#, you must remember 
to include a space between the keyword and the logical file 
number value. For example, you must use PRINT# 1; a 
statement like PRINT# 1 will cause a syntax error. 

• REM and DATA. Capital letters in REM and DATA lines are 
listed as capital letters and not as tokenized BASIC keywords. 
For example, 10 rem AB lists as it's entered and not as 10 
rem atnpeek as normal BASIC would do. 

New BASIC Commands 

AUTO step value 

This command turns on automatic line numbering and defines 
the step value between the line numbers. To enter AUTO 
mode, type AUTO followed by the step value, and press RE¬ 
TURN. Then enter a line with a line number. The next line 
number prints automatically. To leave auto mode, move the 
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cursor to an empty line and press RETURN. To turn automatic 
line numbering off altogether, enter AUTO only. 

You can also use this command to delete part of a program. 
Turn automatic line numbering on with a step value of 1. 

Type the number of the first line you want to delete and press 
RETURN. Keep pressing RETURN until you've reached the 
end of the section you want to delete. Instead of pressing RE¬ 
TURN again and again, you can enter POKE 650,128 and hold 
RETURN down until you've reached the last line to be erased. 

OLD 

If you accidentally type NEW, you can restore your program 
with this command. It can also be used if you've installed a 
reset button. If you've assembled a program and are testing it, 
sometimes your computer locks up. Use the reset button and 
then enter SYS 4408 to restart the assembler; type OLD to re¬ 
store the source program. If your program has not destroyed 
the assembler or the source program, everything will be there. 

Semicolon 0) 

This has the same function as the REM statement. It need not 
be separated with a colon from the preceding command. For 
example, 

10 X=0:REM SET X TO ZERO 
is the same as 
10 X=0;SET X TO ZERO 

The semicolon in the commands PRINT and INPUT is not 
treated as a REM statement, but as a separator. 

Using Labels as Variables and Addresses 

Label names follow the same rules as variable names. They 
can be used in arithmetic expressions the way normal vari¬ 
ables are used. 

You can define a label in two ways. You can place the la¬ 
bel name just before the command to which you want to refer. 
If more commands are on the same line, you must separate 
the label from the commands with a colon. Or you can label 
the current program counter: LABELNAME = *. The asterisk 
(*) is a special variable which gives the value of the program 
counter. The counter is the address where the next instruction 
or datum will be placed. You can only read the variable *. You 
cannot assign a value to it with the statement *=expr. 
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Here's an example of using labels to mark routines in a 
program (don't type this in; it's only a fragment of a program): 

50 JSR DISPLAY1; JUMP TO LABELED SUBROUTINE (LINE 90) 
60 LDA $FF: BNE SKIPIT ; CONDITIONAL BRANCH AHEAD 
TO SKIPIT 
70 TYA 

80 SKIPIT: LDX #4: STA $8000,X: RTS;TARGET OF BRANCH 
IN 60 

90 DISPLAY1=* ; THIS LABELS THE CURRENT PROGRAM 
COUNTER 
100 ; 

110 LDA #65: JSR $FFD2: RTS 

Remember that in the lines above, the semicolon marks 
the beginning of a comment which, like a REM, is ignored by 
FA. The technique in line 90 is valuable if you think you may 
be adding some code at the beginning of the routine. As listed, 
the subroutine called DISPLAY1 starts with LDA #65, but 
later you could go in and add some lines between 90 and 110. 

Three Passes to Assemble 

Three passes are required to assemble source code (what you 
write) into object code (an executable ML program that the 
computer can follow). But FA doesn't do it by itself. You have 
to insert a loop that repeats three times with BASIC commands: 

10 FOR PASS=1 TO 3 
. (Insert source code) 

90 NEXT PASS:END 

If you use an invalid addressing mode such as LSR (expr),y 
you'll see ILLEGAL ADDRESSING MODE ERROR. Mnemonics 
can only be used in program mode—that is, in a program you 
execute with RUN. If you enter a mnemonic in direct mode, 
you'll see ILLEGAL DIRECT ERROR. 

Also note that for immediate addressing, the argument 
can be an actual number or an arithmetic expression which 
evaluates to a value in the range 0-255. Or you can substitute 
a string expression, in which case the assembler takes the 
ASCII value of the first character as the argument. If the string 
length is zero, the argument becomes zero. 
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n 

Assembler Commands p 

Assembler commands which write data to the output device 
can only be used in program mode; otherwise you'll get ILLE- p 

GAL DIRECT ERROR. All assembler commands must be in¬ 
cluded in every pass. p 

ORG address,mode,device,name 

This command must be used at the start of each pass. It does 
several things. First, it sets the origin (ORG), the memory ad¬ 
dress for the beginning of the ML program. It assigns an initial 
value to the program counter. It also sets the assembler mode, 
which should be 0 on the first two passes and 1 on the third 
and last. ORG also sets the output device and filename (if 
necessary). 

Not all arguments are necessary. Also permitted are 

ORG 

ORG address 
ORG address,mode 

Default values for the arguments are 

address = 49152 ($COOO) 
mode = 0 

device = 0 and no name 

If you use a mnemonic or assembler command before 
you've used the command ORG, you'll see UNDEF'D LOCA¬ 
TION COUNTER ERROR. 

The address assigns a value to the program counter. 

Usually, you use more than one pass to assemble the source 
program. Only during the last pass should the object code be 
written to memory or to the output device. Mode tells the as¬ 
sembler when the last pass is reached. Zero means it's not the 
last pass, so no object code should be produced, and there's 


no range checking for arguments and no checking for too large n 

branches. 

On the final pass, you should set the mode to 1, which p 

signals the last pass, when object code is written to the out¬ 
put device. n 

Finally, you set the device number of the output device 
and a string expression which contains the filename if the ob- p 

ject code is not written to memory. Zero means the output de¬ 
vice is memory. Be careful not to write to memory locations pi 

where the assembler is placed ($0801-$121B) or where the 
BASIC interpreter is placed ($A000-$BFFF). j | 
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A device number in the range 8-11 means the output de¬ 
vice is a disk drive. If mode is equal to 1, the assembler will 
open a PRG file with the name specified in the argument 
name. The logical file number will be 8. 

BYTE expression,expression,... 

This command writes numbers or characters to memory or the 
selected output device. It can have one or more arithmetic or 
string expressions separated by commas. Arithmetic expres¬ 
sions must give a positive value less than 256. The value will 
be placed in one byte. Each character of a string expression 
will be placed in one byte. 

WORD expression,expression,... 

This has the same function as BYTE except that values of 
arithmetic expressions must be positive and less than 65536. 
The value will be placed in two bytes in low/high format. 

INCLUDE name,device 

This command assembles a file from disk and inserts the re¬ 
sulting object code into memory or the output device. The file 
must be a normal PRG file and may not contain BASIC com¬ 
mands which cause a branch to another line or stop the pro¬ 
gram. Also not permitted are the BASIC commands DEF, 
RETURN, CLR, NEW, and the assembler commands SEND 
and INCLUDE. 

The file is opened with a logical file number of 9. The file 
is closed when the end of the file is reached. The name is the 
filename you're including, and the device number can be 8-11 
(use 8 if you have a single drive). If you have only one disk 
drive and you assemble to disk, the file(s) for the command 
INCLUDE must be on the same disk to which you assemble. 

All variables and labels are global, which means you can 
pass parameters to INCLUDE files so they can work like 
macro-instructions. Let's say you're writing a program that 
needs to access several different disk files, and there are sev¬ 
eral points in the program that use the Kemal routines SETLFS, 
SETNAM, and OPEN. You could write the source code that 
performs these Kemal calls and save it to disk under the pro¬ 
gram name "OPEN" to be used later. Then, in the main pro¬ 
gram, use INCLUDE "OPEN",8. When the source code is 
compiled, the series of commands from the OPEN file are 
automatically inserted in the proper place in the object code. 
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SEND stringexpr 

The command SEND may be used only if the object program 
is written to disk. It's used to link object code to a BASIC pro¬ 
gram. Stringexpr must contain a BASIC line with line number. 
If you forget the line number, you'll get MISSING LINE NUM¬ 
BER ERROR. If you want to send more than one line, you must 
use SEND for each line, and you have to send the lines in the 
right order. You must send the lines before the actual object 
code is written to disk. The address in the ORG command 
must be the start of BASIC RAM (2049). 

UNSEND 

If you load a program which consists of both BASIC and ML, 
the interpreter has to know where the BASIC part ends. 
UNSEND places a mark which the computer recognizes as the 
end of the BASIC part. 

Example Programs 

100 FOR PASS=1 TO 3:PRINT "PASS"PASS, 

110 ORG $C000 

120 IF PASS=3 THEN ORG $C000,1 

130 START: LDX #0 

140 LOOP: LDA TEXT,X:PRINT TEXT 

150 BEQ EXIT 

160 JSR $FFD2 

170 I NX 

180 BNE LOOP 

190 EXIT: RTS 

200 PRINT * 

210 TEXT: BYTE "EXAMPLE 1",0 
220 NEXT PASS:END 

Lines 110 and 120 show how to use the command ORG. 
In every pass, line 110 sets mode 0. But in pass 3, line 120 
sets mode 1. The object code will start at 49152 (hexadecimal 
$C000). Line 200 prints the current value of the location 
counter (*). 

You can assemble the program with the command RUN. 
The program will give the following output: 

PASS 1 0 49165 

PASS 2 49165 49166 
PASS 3 49166 49166 

The first column is the pass number. The second column 
is the value of the label TEXT in the instruction LDA TEXT,X 
in line 140. The third column is the value the label should 
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have when the source code is assembled. You can see that 
only in pass 3 are these values equal to each other. This is be¬ 
cause the assembler defaults to zero-page addressing. In pass 
1, TEXT has a value less than 256, so zero-page addressing is 
assumed. This means a two-byte instruction instead of three. 
The value assigned to TEXT will be too low, as you can see in 
pass 1. In pass 2, this value, which is too low, will be used in 
assembling line 140. The assembler decides not to use zero- 
page addressing, so TEXT is assigned the correct value. In pass 
3, the correct value replaces the previously incorrect values 
during assembly. 

5 ;EXAMPLE PROGRAM 2 

6 ? 

10 PRINT CHR?(147) 

11 DEP FN H(X)=INT(X/256) 

12 DEF FN L(X)=X-256*FN H(X) 

20 PRINT SPRINT" LOADER MAKER” 

30 PRINT SPRINT" ENTER THE NAME OF THE PROGRAM T 
HAT" 

40 PRINT" HAS TO BE LOADED BY THE LOADER." 

50 INPUT" >";NAME $ 

60 PRINTSPRINT" ENTER THE NAME OF THE LOADER." 

70 INPUT" >";N$ 

80 PRINT SPRINT" ENTER THE ADDRESS TO EXECUTE TH 
E" 

90 PRINT" PROGRAM." 

100 INPUT" >";ADDRESSsADDRESS=ADDRESS-l 
105 ? 

110 FOR PASS=1 TO 3 
115 7 

120 ORG 2049 

130 IF PASS=3 THEN ORG 2049,1,8,N$ 

135 7 

140 SEND "10 SYS"+STR$(LOADER) 

150 UNSEND 

160 LOADERS LDA #8sTAXsLDY #1 

170 JSR $FFBA 

180 LDX #FN L(NAME) 

190 LDY #FN H(NAME) 

200 LDA # LEN(NAME$) 

210 JSR $FFBD 

220 LDA #FN H(ADDRESS) sPHA 

230 LDA #FN L(ADDRESS) sPHA 

240 LDA #0 sJMP $FFD5 

250 NAMES BYTE NAME? 

255 7 

260 NEXT PASSsCLOSE 8sEND 
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The above example program shows how to use the com¬ 
mands SEND and UNSEND to write a program which in¬ 
cludes a SYS within a BASIC line. 

The main routine at lines 160-250 illustrates how to load 
another program from an ML program. Note that the lines up 
to 100 are BASIC—they prepare the variables and defined 
functions for use in the source code. If you assemble the pro¬ 
gram with the command RUN, you'll get a program that can 
load another ML program from disk and execute it. The object 
code will be written to disk. 

In line 140, the command SEND writes a BASIC line to 
the output device by which you can load and run the program 
as if it were a normal BASIC program. Line 150 marks the end 
of the BASIC part of the object code. 

The INPUTs in lines 50, 70, and 100 permit you to enter 
the parameters for the object program when the source pro¬ 
gram is assembled. In this way you can make different object 
programs with one source program. 

Another advantage of writing the assembler as a BASIC 
extension is that you can assemble a program to the top of 
memory. Use the following construction to do this: 

100 POKE 56,PEEK(56)-4:CLR 

110 TOPOFMEM=PEEK(55)+256*(PEEK(56)+4) 

120 ADDRESS=0:MODE=0 
130 FOR PASS=1 TO 3 
140 ORG ADDRESS 

150 IF PASS=3 THEN ORG ADDRESS, MODE 
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900 NEXT PASS 

910 IF MODE=l THEN END 

920 ADDRESS=TOPOFMEM—* 

930 MODE=l:GOTO 130 

In this program, the source code goes through six passes. 
During the first three passes the location counter remains at 0. 
Mode 0 is used so the object program will not be written to 
the output device. The length of the program is calculated and 
subtracted from TOPOFMEM. This address is used in the sec¬ 
ond three passes to assemble to the top of memory. MODE is 
set to 1 so the assembler will write the object code to the out- 
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put device during the sixth pass (actually pass 3 of the second 
time around). Line 100 is used to reserve IK at the top of 
memory for the object program. 

Large Programs 

If your source program won't fit into memory, you can split 
your program and use the command INCLUDE—for example, 

10 FOR PASS=1 TO 3 
20 ORG ADDRESS 

30 IF PASS=3 THEN ORG ADDRESS,1 

. Part 1 of source code 

90 INCLUDE 'TART 2",8 
100 INCLUDE 'TART 3",8 
110 NEXT PASS:END 

The labels and variables used in the INCLUDE files will 
be global variables, which means you can use them in 
arithmetic expressions everywhere in the program. 

Another possibility is chaining the programs, but then you 
can't use a FOR-NEXT loop for the passes. You must use an¬ 
other way to define the passes—for example, 

FIRSTPROGRAM 

10 PASS=PASS+1:IF PASS=4 THEN 
END 

20 ORG ADDRESS 

30 IF PASS=3 THEN ORG ADDRESS,1 
. Source code 

90 LOAD"SECONDPROGRAM",8 
SECONDPROGRAM 

. Source code 

90 LOAD'TIRSTPROGRAM",8 

Note that these are just examples. You'd have to insert 
your own source code as indicated. To chain programs, you 
would load and execute the first program. It controls the num¬ 
ber of passes and loads the next program. The next program 
loads the following program and so on until the last program, 
which must load the first again. 
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The Fast Assembler 

For mistake-proof program entryt, use "MLX: Machine Language Entry Program " to type 
this program. 
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The source code for the seven games in COMPUTERS More 
Machine Language Games for the Commodore 64 is listed in PAL 
format (the PAL assembler, from Pro-Line Software). 

PAL uses several pseudo-ops, such as .ASC and .WORD, 
that aren't found in most other assemblers. Most pseudo-ops, 
however, are in standard MOS 6502 notation: *= updates the 
program counter (some assemblers use .ORG instead); .BYT or 
.BYTE assembles a list of numbers (some assemblers use .DB 
or .DW); .WOR or .WORD assembles a list of addresses into 
low-byte/high-byte format; .ASC is used to assemble an 
ASCII character string (many assemblers use .BYTE for this 
also); the pseudo-op < extracts the low byte of a 16-bit ex¬ 
pression, while > extracts the high byte of a 16-bit expression 
(some assemblers reverse the use of < and >, and others use 
$255 and /256 for the same effect); and = is used to assign 
an expression to a label (some assemblers use .EQU). 

You'll find comments in almost every game's source code, 
though some are more heavily commented than others. You 
needn't type them in (if that's what you're using the source 
code for), but if you do, remember to precede each comment 
with a semicolon (;). 

Since all source code was written with or translated to 
PAL, it's not surprising that the listings which follow are also 
in PAL format. The listings aren't source code in the strictest 
sense, but rather source code that has been assembled by PAL. 
Your assembler may display things differently. 

Here's a typical line from the listing for "Space Arena" 
(the boldface headings indicate each column's content). Note 
that pseudo-ops like .ASC and .BYT don't have a final oper¬ 
and, but instead list the ASCII string or a series of numbers. 

Address Opcode Operand Label Mnemonic Operand 

C028 B9 36 CF NWCHR LDA CHARAC,Y 
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Notes on the Code 

As mentioned above, the listings that follow show the assem¬ 
bled source code, not the raw source code you would actually 
enter for your assembler. Thus, you can't type the listings in 
the format shown. To enter the code so that you can assemble 
it yourself, you'll need to know the source code format your 
assembler expects. For example, for Commodore's Macro As¬ 
sembler Development System you would type in just the labels, 
mnemonics, and operands (the three rightmost columns of the 
listings). PAL, on the other hand, requires a line number .(just 
as BASIC does) before every line, but allows you to use the 
colon to combine more than one instruction per line. 

You'll come across some odd-looking characters in several 
of the games' listings. These characters, limited to the .ASC 
pseudo-op, are found only within quotation marks ("). They're 
not meant to be typed in as shown, but instead represent the 
key(s) you should press at that point. 

Words within braces are the most common such charac¬ 
ters: {DOWN} means to press the cursor-down key; {5 LEFT} 
means to press the cursor-left key five times. 

To indicate that a key should be shifted (pressed while 
you're holding down the SHIFT key), the character is under¬ 
lined. For example, A means hold down the SHIFT key and 
press A. You may see strange characters on your screen, but 
that's to be expected. If you find a pair of braces enclosing a 
number followed by an underlined key—for instance, {8 A}— 
type the key as many times as indicated (in the example, enter 
eight SHIFTed A's). 

If a key is enclosed in special brackets, [<>], hold down 
the Commodore key (at the lower left corner of the keyboard) 
and press the indicated character. 

Refer to the following table. 
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When You 
Read: 

Press: 

See: 

When You 
Read: 

Press: See: 

{CLR} 

SHIFT CLR/HOME 

n 

§ 1 3 

COMMODORE | | 1 | pj 

{HOME} 

CLR/HOME 

n 


COMMODORE 11 2 | |Q 

{UP} 

SHIFT f CRSR l 

El 


COMMODORE 11 3 | ^ 

{DOWN} 

f CRSR i 

ED 

§«3 

COMMODORE | | 4 | 

{LEFT} 

SHIFT — CRSR — 

H 

i s i 

COMMODORE | | 5 | 

{RIGHT} 

— CRSR — 

a 


COMMODORE | | 6 | || 

{RVS> 

CTRL 9 

m 

e 7 i 

COMMODORE | | 7 1 Fjj 

{OFF} 

CTRL 0 

■ 

isi 

COMMODORE | | 8 | 

{BLK} 

CTRL 1 

■ 

{ n } 

ft i s 

{WHT} 

CTRL 2 

ii 

{ F2 } 

SHIFT fl 31 

{RED} 

CTRL 3 

D 

{ F3 } 

• 9 

{CYN} 

CTRL 4 

m 

{ F4 } 

SHIFT f3 |D 

{PUR} 

CTRL 5 

m 

{ FS } 

• 9 

{GRN} 

CTRL 6 

□ 

{ F6 } 

SHIFT | IS | 9 

{BLU} 

CTRL 7 

Q 

{ F7 } 

ra m 

{YEL} 

CTRL 8 

m 

{ F8 } 

| SHIFT | | f7 | |H 
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Space Arena 

Source code by Bryan Files 


cooo 


* 

$C000 

;uncompact sprite data 



cooo 

TEMP 

= 

2 

C03D 

AO 00 

LDY 

#0 

cooo 

TEMPI 

ES 

$FD 

C03F 

84 FB 

STY 

TEMP3 

cooo 

TEMP2 

= 

$FE 

C041 

A9DD 

LDA 

#<SPRITE 

cooo 

TEMP3 

= 

$FB 

C043 

85 FD 

STA 

TEMPI 

cooo 

TEMP4 

= 

$FC 

C045 

A9 20 

LDA 

#$20 





C047 

85 FC 

STA 

TEMP4 

;xcoor ($10$11)-ship 1 



C049 

A9CB 

LDA 

#>SPRITE 

; +2 

($12 $13) - ship 2 



C04B 

85 FE 

STA 

TEMP2 

• 

($14 $15)..($1a $1b) - 

asteroids 


C04D 

B1 FD LI 

LDA 

(TEMPI ),Y 

; +12 ($1c $1d) - missile 1 



C04F 

FO ID 

BEQ 

ZERO 

; +14 ($1e $1f) - missile 2 



C051 

91 FB 

STA 

(TEMP3),Y 

COOO 

XCOOR 

= 

$10 

C053 

E6 FB 

INC 

TEMP3 





C055 

DO 02 

BNE 

L2 

;ycoor ($20 $21)...($2e $2t) 



C057 

E6 FC 

INC 

TEMP4 

COOO 

YCOOR 

= 

$20 

C059 

E6 FD L2 

INC 

TEMPI 





C05B 

DO 02 

BNE 

L6 

;xyspd ($30,$31)...($3e,$3f) 



C05D 

E6 FE 

INC 

TEMP2 

COOO 

XYSPD 


$30 

C05F 

A5 FE L6 

LDA 

TEMP2 

cooo 

JOYCNT 

= 

$40 

C061 

C9CF 

CMP 

#>CHARAC 

cooo 

SHPDIR 

= 

$41 

C063 

DO E8 

BNE 

LI 

cooo 

MSL1CN 

= 

$43 

C065 

A5 FD 

LDA 

TEMPI 

cooo 

MSL2CN 

= 

$44 

C067 

C9 36 

CMP 

#<CHARAC 

cooo 

CLLREG 

= 

$45 

C069 

DO E2 

BNE 

LI 

cooo 

TIMCNT 

= 

$46 

C06B 

4C8CC0 

JMP 

TITLE 

cooo 

CRWDCN 

= 

$48 

C06E 

E6 FD ZERO 

INC 

TEMPI 

cooo 

POSMSB 

= 

$49 

C070 

DO 02 

BNE 

L3 

cooo 

FRSCNT 


$47 

C072 

E6 FE 

INC 

TEMP2 

cooo 

FRSCN2 

= 

$4E 

C074 

B1 FD L3 

LDA 

(TEMPI),Y 





C076 

A8 

TAY 


;copy characters from ram 



C077 

A9 00 

LDA 

#0 

cooo 

A9 37 

LDA 

#$37 

C079 

88 L4 

DEY 


C002 

85 FC 

STA 

TEMP4 

C07A 

91 FB 

STA 

(TEMP3),Y 

C004 

A9D7 

LDA 

#$D7 

C07C 

DO FB 

BNE 

L4 

COOO 

85 FE 

STA 

TEMP2 

C07E 

B1 FD 

LDA 

(TEMPI ),Y 

coos 

AO 00 

LDY 

#0 

C080 

18 

CLC 


COOA 

84 FB 

STY 

TEMP3 

C081 

65 FB 

ADC 

TEMP3 

cooc 

84 FD 

STY 

TEMPI 

C083 

85 FB 

STA 

TEMP3 

COOE 

78 

SEI 


C085 

90 02 

BCC 

L5 

COOF 

A5 01 

LDA 

$01 

C087 

E6 FC 

INC 

TEMP4 

C011 

29 FB 

AND 

#251 

C089 

4C 59 CO L5 

JMP 

L2 

C013 

85 01 

STA 

$01 

C08C 




C015 

B1 FD COPY 

LDA 

(TEMPI),Y 

A018 TITLE 

LDY 

#24 

C017 

91 FB 

STA 

(TEMP3),Y 

C08E 

A9 00 

LDA 

#0 

C019 

88 

DEY 


C090 

99 00 D4 UNHUM 

STA 

$D400,Y 

C01A 

DO F9 

BNE 

COPY 

C093 

88 

DEY 


C01C 

C6FE 

DEC 

TEMP2 

C094 

10 fA 

BPL 

UNHUM 

C01E 

C6FC 

DEC 

TEMP4 

C096 

AO 18 

LDY 

#24 

C020 

A5 FC 

LDA 

TEMP4 

C098 

B9 38 C7 HUM 

LDA 

SNDT.Y 

C022 

C9 2F 

CMP 

#$2F 

C09B 

99 00 D4 

STA 

$D400,Y 

C024 

DO EF 

BNE 

COPY 

C09E 

88 

DEY 






C09F 

AO F7 

BPL 

HUM 

idefine new characters 







C026 

A0 2F 

LDY 

#47 

;display title screen 



C028 

B9 36 CF NWCHR 

LDA 

CHARAC.Y 

C0A1 

AO 00 

LDY 

#0 

C02B 

99 00 34 

STA 

$3400,Y 

C0A3 

B9DDC7L7 

LDA 

SCREEN,Y 

C02E 

88 

DEY 


C0A6 

99 00 04 

STA 

$0400,Y 

C02F 

10 F7 

BPL 

NWCHR 

C0A9 

B9DDC8 

LDA 

SCREEN+$100,Y 

0)31 

A5 01 

LDA 

$01 

COAC 

99 00 05 

STA 

$0500,Y 

C033 

09 04 

ORA 

#4 

COAF 

B9 DDC9 

LDA 

SCREEN+$200,Y 

C035 

85 01 

STA 

$01 

C0B2 

99 00 06 

STA 

$0600,Y 

C037 

58 

CLI 


C0B5 

B9DDCA 

LDA 

SCREEN+$300,Y 

C038 

A9 1C 

LDA 

#$1C 

COBS 

99 00 07 

STA 

$0700,Y 

C03A 

8D 18 DO 

STA 

$0018 

COBB 

A9 OF 

LDA 

#$0F 





COBD 

99 00 D8 

STA 

$D800,Y 




Chapter 3 


COCO 

99 00 D9 

STA 

$D900,Y 

Cl 60 

18 

CLC 


C0C3 

99 00 DA 

STA 

$DAOO,Y 

Cl 61 

69 28 

ADC 

#40 

C0C6 

99 00 DB 

STA 

$DBOO,Y 

Cl 63 

85 FD 

STA 

TEMPI 

C0C9 

88 

DEY 

Cl 65 

90 02 

BCC 

B1 

COCA 

DO D7 

BNE 

L7 

Cl 67 

E6 FE 

INC 

TEMP2 

COCC 

20 FF C6 

JSR 

DSCOR 

Cl 69 

CA B1 

DEX 


COCF 

AO 26 

LDY 

#38 

C16A 

DO E5 

BNE 

CLRLN 

C0D1 

B9 66 CF UPCOL 

LDA 

TPCOLR.Y 

C16C 




C0D4 

99 28 D8 

STA 

$D828,Y 

AO 02 

LDY 

#2 

C0D7 

88 

DEY 


C16E 

B9 00 00 L9 

LDA 

$0000,Y 

C0D8 

DO F7 

BNE 

UPCOL 

C171 

99 00 08 

STA 

$0800,Y 

CODA 

A9 00 

LDA 

#0 

Cl 74 

C8 

INY 

CODC 

8D 20 DO 

STA 

$D020 

Cl 75 

DO F7 

BNE 

L9 

CODF 

8D 21 DO 

STA 

$D021 

0177 

A9 00 

LDA 

#0 

C0E2 

AD 36 C7 

LDA 

CLK 

0179 

8D OE DC 

STA 

$DCOE 

C0E5 

09 30 

ORA 

#$30 




C0E7 

8D 5E 07 

STA 

1886 

;set initial sprite conditions 



COEA 

AD 37 C7 

LDA 

SPD 

C17C 

A2 40 SET 

LDX 

#$40 

COED 

09 30 

ORA 

#$30 

C17E 

BDA8C7 L10 

LDA 

INITT,X 

COEF 

8D OE 07 

STA 

1806 

C181 

95 10 

STA 

XCOOR.X 

j 




Cl 83 

CA 

DEX 

;choose speed and time limit 



C184 

10 F8 

BPL 

L10 

C0F2 

20 E4 FF GETIN 

JSR 

$FFE4 

Cl 86 

A9 84 

LDA 

#132 

C0F5 

C9 85 

CMP 

#133 

Cl 88 

8D F8 07 

STA 

2040 

C0F7 

FO 36 

BEQ 

START 

C18B 

A9 8C 

LDA 

#140 

C0F9 

C9 86 

CMP 

#134 

C18D 

8D F9 07 

STA 

2041 

COFB 

FO IB 

BEQ 

SPEED 

C190 

A9 00 

LDA 

#0 

COFD 

C9 87 

CMP 

#135 

Cl 92 

85 47 

STA 

FRSCNT 

COFF 

DO FI 

BNE 

GETIN 

Cl 94 

85 4E 

STA 

FRSCN2 

C101 

EE 36 C7 TIME 

INC 

CLK 





Cl 04 

AD 36 C7 

LDA 

CLK 

Cl 96 

AO 18 

LDY 

#24 

Cl 07 

C9 06 

CMP 

#6 

Cl 98 

88 SOUND 

DEY 


Cl 09 

DO 05 

BNE 

SHTIM 

Cl 99 

99 00 D4 

STA 

$D400,Y 

Cl OB 

A9 01 

LDA 

#1 

C19C 

DOIft 

BNE 

SOUND 

C10D 

8D 36 C7 

STA 

CLK 

C19E 

A9 OF 

LDA 

#15 

C110 

09 30 SHTIM 

ORA 

#$30 

Cl AO 

8D 18 D4 

STA 

$D418 

Cl 12 

8D 5E 07 

STA 

1886 

Cl A3 

A9 80 

LDA 

#128 

Cl 15 

4CF2C0 

JMP 

GETIN 

C1A5 

8D 14 D4 

STA 

$D414 

Cl 18 

EE 37 C7 SPEED 

INC 

SPD 

C1A8 

A9 81 

LDA 

#129 

C11B 

AD 37 C7 

LDA 

SPD 

C1AA 

8D12 D4 

STA 

$D412 

cue 

C9 04 

CMP 

#4 




Cl 20 

DO 05 

BNE 

SHSPD 

Cl AD 

AO 07 

LDY 

#7 

C122 

A9 01 

LDA 

#1 

C1AF 

A9 0C 

LDA 

#12 

Cl 24 

8D 37 C7 

STA 

SPD 

C1B1 

99 27 DO COLOR 

STA 

$D027,Y 

Cl 27 

09 30 SHSPD 

ORA 

#$30 

C1B4 

88 

DEY 

Cl 29 

8D OE 07 

STA 

1806 

C1B5 

10 FA 

BPL 

COLOR 

C12C 

4CF2 CO 

JMP 

GETIN 

C1B7 

A9 0E 

LDA 

#14 

C12F 




C1B9 

8D 27 DO 

STA 

$D027 

AO 03 START 

LDY 

#3 

C1BC 

8D 2D DO 

STA 

$D02D 

Cl 31 

A9 00 

LDA 

#0 

C1BF 

A9 05 

LDA 

#5 

C133 

99 32 C7 ZSCR 

STA 

SCRT.Y 

C1C1 

8D 28 DO 

STA 

$0028 

Cl 36 

88 

DEY 

C1C4 

8D 2E DO 

STA 

$D02E 

Cl 37 

10 ftt 

BPL 

ZSCR 

C1C7 

A9 3C 

LDA 

#%00111100 

C139 

20 FF C6 

JSR 

DSCOR 

C1C9 

8D1CD0 

STA 

SD01C 

C13C 

A9 00 

LDA 

#0 

C1CC 

A9 0B 

LDA 

#11 

C13E 

8D08 DC 

STA 

$DC08 

C1CE 

8D 25 DO 

STA 

$D025 

C141 

8D09 DC 

STA 

$DC09 

C1D1 

A9 OF 

LDA 

#15 

C144 

8D OA DC 

STA 

$DCOA 

C1D3 

8D 26 DO 

STA 

$0026 

;erase options 



;set timer by speed 



Cl 47 

A9 AO 

LDA 

#160 

C1D6 

AD 37 C7 

LDA 

SPD 

Cl 49 

85 FD 

STA 

TEMPI 

C1D9 

OA 

ASL 

A 

C14B 

A9 04 

LDA 

#4 

Cl DA 

OA 

ASL 

A 

C14D 

85 FE 

STA 

TEMP2 

C1DB 

OA 

ASL 

A 

C14F 

A2 13 

LDX 

#19 

Cl DC 

OA 

ASL 

A 

Cl 51 

AO 26 CLRLN 

LDY 

#38 

C1DD 

85 02 

STA 

TEMP 

C153 

B1 FD L8 

LDA 

(TEMPI ),Y 

C1DF 

A9 60 

LDA 

#96 

C155 

30 04 

BMI 

SKPCH 

Cl El 

38 

SEC 


Cl 57 

A9 20 

LDA 

#32 

C1E2 

E5 02 

SBC 

TEMP 

Cl 59 

91 FD 

STA 

(TEMPI ),Y 

C1E4 

8D 07 DC 

STA 

$DC07 

C15B 

88 SKPCH 

DEY 

C1E7 

8D 06 DC 

STA 

$0006 

C15C 

DO F5 

BNE 

L8 

C1EA 

A9 09 

LDA 

#9 

C15E 

A5FD 

LDA 

TEMPI 

Cl EC 

8D OF DC 

STA 

$DCOF 


138 



The Source Code 


C1EF 

A9 3F 

LDA 

#$3F 

imissile 1 hit ship 2 



Cl FI 

8D 15 DO 

STA 

$D015 

C274 A9 01 

LDA 

#1 

; 




C276 20 EE C6 

JSR 

SCORE 

C1F4 

A9 01 MAIN 

LDA 

#1 

C279 A2 01 

LDX 

#1 

C1F6 

2C OF DC TIMER 

BIT 

$DC0F 

C27B B5 3C DFLC1 

LDA 

XYSPD+12.X 

C1F9 

DO FB 

BNE 

TIMER 

C27D 30 04 

BMI 

NEGS1 

C1FB 

A9 09 

LDA 

#9 

C27F 4A 

LSR 

A 

C1FD 

8D OF DC 

STA 

$DC0F 

C280 4C85C2 

JMP 

INFL1 

; 




C283 38 NEGS1 

SEC 


;check for sprite collisions 



C284 6A 

ROR 

A 

C200 

AD IE DO 

LDA 

$D01E 

C285 18 INFL1 

CLC 


C203 

85 45 

STA 

CLLREG 

C286 75 32 

ADC 

XYSPD+2.X 

C205 

29 C3 

AND 

#%11000011 

C288 10 08 

BPL 

MVF1 

C207 

DO 03 

BNE 

COLL 

C28A C9C0 

CMP 

#192 

C209 

4C DC C2 

JMP 

DCOL 

C28C BO OA 

BCS 

NDFLC1 





C28E A9C0 

LDA 

#192 

C20C 

10 51 COLL 

BPL 

NMIS2 

C290 DO 06 

BNE 

NDFLC1 

C20E 

A5 45 

LDA 

CLLREG 

C292 C9 41 MVF1 

CMP 

#65 

C210 

29 01 

AND 

#1 

C294 90 02 

BCC 

NDFLC1 

C212 

FO 35 

BEQ 

NMTS 

C296 A9 40 

LDA 

#64 

C214 

A2 00 

LDX 

#0 

C298 95 32 NDFLC1 

STA 

XYSPD+2.X 

C216 

AO OE 

LDY 

#14 

C29A CA 

DEX 


C218 

20 5AC4 

JSR 

CKCOL 

C29B FO DE 

BEQ 

DFLC1 

C21B 

O0 2C 

BNE 

NMTS 

C29D 4CA7C2 

JMP 

DMIS1 

imissile 2 hit ship 1 



icheck missile 1 to asteroid 



C21D 

A9 01 

LDA 

#1 

C2A0 A2 OC NMTS1 

LDX 

#12 

C21F 

20 EE C6 

JSR 

SCORE 

C2A2 20 D7 C4 

JSR 

ASTCOL 

• 




C2A5 DO 11 

BNE 

NMIS1 

;add half of velocity to ship 



C2A7 AD 15 DO DMIS1 

LDA 

$0016 

C222 

A2 01 

LDX 

#1 

C2AA 29 BF 

AND 

#$BF 

C224 

B5 3E DFLC 

LDA 

XYSPD+14.X 

C2AC 8D 15 DO 

STA 

$0015 

C226 

30 04 

BMI 

NEGS 

C2AF A9 00 

LDA 

#0 

C228 

4A 

LSR 

A 

C2B1 85 ID 

STA 

XCOOR+13 

C229 

4C 2E C2 

JMP 

INFL 

C2B3 AO 07 

LDY 

#7 

C22C 

38 NEGS 

SEC 


C2B5 20 28 C5 

JSR 

HTSND 

C22D 

6A 

ROR 

A 

• 



C22E 

18 INFL 

CLC 


C2B8 A5 45 NMIS1 

LDA 

CLLREG 

C22F 

75 30 

ADC 

XYSPD.X 

C2BA 29 02 

AND 

#2 

C231 

10 08 

BPL 

MVF 

C2BC FO OC 

BEQ 

NSHP2 

C233 

C9C0 

CMP 

#192 

C2BE A2 02 

LDX 

#2 

C235 

BO OA 

BCS 

NDFLC 

C2C0 20 D7 C4 

JSR 

ASTCOL 

C237 

A9C0 

LDA 

#192 

C2C3 DO 05 

BNE 

NSHP2 

C239 

DO 06 

BNE 

NDFLC 

;ship 2 hit asteroid 



C23B 

C9 41 MVF 

CMP 

#65 



C23D 

90 02 

BCC 

NDFLC 

C2C5 AO 01 

LDY 

#1 

C23F 

A9 40 

LDA 

#64 

C2C7 4C 5E C5 

JMP 

KILL 

C241 

95 30 NDFLC 

STA 

XYSPD.X 

C2CA A5 45 NSHP2 

LDA 

CLLREG 

C243 

CA 

DEX 


C2CC 29 01 

AND 

#1 

C244 

FO DE 

BEQ 

DFLC 

C2CE FO OC 

BEQ 

DCOL 

C246 

4C50 C2 

JMP 

DMIS2 

C2D0 A2 00 

LDX 

#0 





C2D2 20 D7 C4 

JSR 

ASTCOL 

rcheck missile 2 to asteroid 



C2D5 DO 05 

BNE 

DCOL 

C249 

A2 OE NMTS 

LDX 

#14 

;ship 1 hit asteroid 



C24B 

20 D7C4 

JSR 

ASTCOL 



C24E 

DO OF 

BNE 

NMIS2 

C2D7 AO 00 

LDY 

#0 

C250 

AD 15 DO DMIS2 

LDA 

$D015 

C2D9 4C5EC5 

JMP 

KILL 

C253 

29 7F 

AND 

#$7F 




C255 

8D 15 DO 

STA 

$D015 

C2DC 20 OB C6 DCOL 

JSR 

MOVE 

C258 

AO 00 

LDY 

#0 

C2DF C6 40 

DEC 

JOYCNT 

C25A 

84 IF 

STY 

XCOOR+15 

C2E1 DO 7A 

BNE 

NJOY 

C25C 

20 28 C5 

JSR 

HTSND 

C2E3 A9 07 JOY 

LDA 

#7 





C2E5 85 40 

STA 

JOYCNT 

C25F 

A5 45 NMIS2 

LDA 

CLLREG 

C2E7 A2 01 

LDX 

#1 

C261 

29 40 

AND 

#64 

;ship control 



C263 

FO 53 

BEQ 

NMIS1 



C265 

A5 45 

LDA 

CLLREG 

C2E9 BD 00 DC OJOY 

LDA 

$DCOO,X 

C267 

29 02 

AND 

#2 

C2EC 29 04 

AND 

#4 

C269 

FO 35 

BEQ 

NMTS1 

C2EE DO 05 

BNE 

NLEFT 

C26B 

A2 02 

LDX 

#2 

C2F0 D6 41 

DEC 

SHPDIR.X 

C26D 

AO OC 

LDY 

#12 

C2F2 4C FE C2 

JMP 

DIREC 

C26F 

20 5AC4 

JSR 

CKCOL 

C2F5 BD 00 DC NLEFT 

LDA 

$DCCO,X 

C272 

D0 2C 

BNE 

NMTS1 

C2F8 29 08 

AND 

#8 





C2FA DO OD 

BNE 

NRGHT 



Chapter 3 


C2FC 

F6 41 

INC 

SHPDIR.X 

C386 

A5 20 

LDA 

YCOOR 

C2FE 

B5 41 DIREC 

LDA 

SHPDIR.X 

C388 

18 

CLC 


C300 

29 OF 

AND 

#15 

C389 

69 40 

ADC 

#64 

C302 

95 41 

STA 

SHPDIR.X 

C38B 

85 2C 

STA 

YCOOR+12 

C304 

09 80 

ORA 

#128 

C38D 

A5 21 

LDA 

YCOOR+1 

C306 

9D F8 07 

STA 

2040.X 

C38F 

69 01 

ADC 

#1 

C309 

BD 00 DC NRGHT 

LDA 

$DC00,X 

C391 

85 2D 

STA 

YCOOR+13 

C30C 

29 01 

AND 

#1 

C393 

A4 41 

LDY 

SHPDIR 

C30E 

DO 28 

BNE 

NTHRU 

C395 

B9 75 C7 

LDA 

THXT.Y 

C310 

B4 41 

LDY 

SHPDIR.X 

C398 

OA 

ASL 

A 

C312 

8A 

TXA 


C399 

OA 

ASL 

A 

C313 

OA 

ASL 

A 

C39A 

OA 

ASL 

A 

C314 

AA 

TAX 


C39B 

OA 

ASL 

A 

C315 

B5 30 

LDA 

XYSPD.X 

C39C 

85 3C 

STA 

XYSPD+12 

C317 

18 

CLC 


C39E 

B9 71 C7 

LDA 

THYT.Y 

C318 

79 75 C7 

ADC 

THXT.Y 

C3A1 

OA 

ASL 

A 

C31B 

C9 41 

CMP 

#65 

C3A2 

OA 

ASL 

A 

C31D 

90 04 

BCC 

NVTX 

C3A3 

OA 

ASL 

A 

C31F 

C9C0 

CMP 

#192 

C3A4 

OA 

ASL 

A 

C321 

90 02 

BCC 

VTX 

C3A5 

85 3D 

STA 

XYSPD+13 

C323 

95 30 NVTX 

STA 

XYSPD.X 

C3A7 

AD 15 DO 

LDA 

$D015 

C325 

B5 31 VTX 

LDA 

XYSPD+1.X 

C3AA 

09 40 

ORA 

#$40 

C327 

18 

CLC 


C3AC 

8D 15 DO 

STA 

$D015 

C328 

79 71 C 7 

ADC 

THYT.Y 

C3AF 

C6 43 G0I1 

DEC 

MSL1CN 

C32B 

C9 41 

CMP 

#65 





C32D 

90 04 

BCC 

NVTY 

C3B1 

A5 44 NSH0T1 

LDA 

MSL2CN 

C32F 

C9C0 

CMP 

#192 

C3B3 

DO 4E 

BNE 

G0I2 

C331 

90 02 

BCC 

VTY 

C3B5 

AD 15 DO 

LDA 

$0015 

C333 

95 31 NVTY 

STA 

XYSPD+1.X 

C3B8 

29 7F 

AND 

#$7F 

C335 

8A VTY 

TXA 


C3BA 

8D 15 DO 

STA 

$D015 

C336 

4A 

LSR 

A 

C3BD 

AD 01 DC 

LDA 

SDC01 

C337 

AA 

TAX 


C3C0 

29 10 

AND 

#16 

C338 

CA NTHRU 

DEX 


C3C2 

DO 41 

BNE 

NSH0T2 

C339 

FO AE 

BEQ 

OJOY 





I 




;new shot 2 fired 



Ithrust sound 



C3C4 

AO 07 

LDY 

#7 

C33B 

AD 00 DC 

LDA 

$DCOO 

C3C6 

20 43 C5 

JSR 

FRSND 

C33E 

29 01 

AND 

#1 

C3C9 

A9 80 

LDA 

#128 

C340 

85 02 

STA 

TEMP 

C3CB 

85 44 

STA 

MSL2CN 

C342 

AD 01 DC 

LDA 

$DC01 

C3CD 

A5 12 

LDA 

XCOOR+2 

C345 

29 01 

AND 

#1 

C3CF 

18 

CLC 


C347 

FO 04 

BEQ 

MKSND 

C3D0 

69 50 

ADC 

#80 

C349 

A4 02 

LDY 

TEMP 

C3D2 

85 IE 

STA 

XC00R+14 

C34B 

DO OB 

BNE 

NOSND 

C3D4 

A5 13 

LDA 

XCOOR+3 

C34D 

18 MKSND 

CLC 


C3D6 

69 01 

ADC 

#1 

C34E 

69 10 

ADC 

#16 

C3D8 

85 IF 

STA 

XCOOR+15 

C350 

E5 02 

SBC 

TEMP 

C3DA 

A5 22 

LDA 

YCOOR+2 

C352 

8D OF D4 

STA 

$D40F 

C3DC 

18 

CLC 


C355 

4C 5DC3 

JMP 

NJOY 

C3DD 

69 40 

ADC 

#64 

C358 

A9 00 NOSND 

LDA 

#0 

C3DF 

85 2E 

STA 

YC00R+14 

C35A 

8D OF D4 

STA 

$D40F 

C3E1 

A5 23 

LDA 

YCOOR+3 

; 




C3E3 

69 01 

ADC 

#1 

C35D 

A5 43 NJOY 

LDA 

MSL1CN 

C3E5 

85 2F 

STA 

YCOOR+15 

C35F 

DO 4E 

BNE 

G0I1 

C3E7 

A4 42 

LDY 

SHPDIR+1 

C361 

AD 15 DO 

LDA 

SD015 

C3E9 

B9 75 C7 

LDA 

THXT.Y 

C364 

29 BF 

AND 

#$BF 

C3EC 

OA 

ASL 

A 

C366 

8D 15 DO 

STA 

$0015 

C3ED 

OA 

ASL 

A 

C369 

AD 00 DC 

LDA 

$DCOO 

C3EE 

OA 

ASL 

A 

C36C 

29 10 

AND 

#16 

C3EF 

OA 

ASL 

A 

C36E 

DO 41 

BNE 

NSH0T1 

C3F0 

85 3E 

STA 

XYSPD+14 

; 




C3F2 

B9 71 C7 

LDA 

THYT.Y 

;new shot 1 fired 



C3F5 

OA 

ASL 

A 

C370 

AO 00 

LDY 

#0 

C3F6 

OA 

ASL 

A 

C372 

20 43 C5 

JSR 

FRSND 

C3F7 

OA 

ASL 

A 

C375 

A9 80 

LDA 

#128 

C3F8 

OA 

ASL 

A 

C377 

85 43 

STA 

MSL1CN 

C3F9 

85 3F 

STA 

XYSPD+15 

C379 

A5 10 

LDA 

XCOOR 

C3FB 

AD 15 DO 

LDA 

$D015 

C37B 

18 

CLC 


C3FE 

09 80 

ORA 

#$80 

C37C 

69 20 

ADC 

#32 

C400 

8D 15 DO 

STA 

$D015 

C37E 

85 1C 

STA 

XCOOR+12 

C403 

C6 44 G0I2 

DEC 

MSL2CN 

C380 

A5 11 

LDA 

XCOOR+1 





C382 

69 01 

ADC 

#1 

display time limit 



C384 

85 ID 

STA 

XCOOR+13 

C405 

AE OA DC NSH0T2 

LDX 

$DCOA 


140 



The Source Code 


C408 

AD 09 DC 

LDA 

$DC09 

C498 

F9 20 00 

SBC 

YCOOR.Y 

C40B 

F0 09 

BED 

SIXTY 

C49B 

85 FD 

STA 

TEMPI 

(MOD 

E8 

INX 


C49D 

B5 21 

LDA 

YC00R+1.X 

C40E 

A9 60 

LDA 

#$60 

C49F 

38 

SEC 


C410 

F8 

SED 


(MAO 

F9 21 00 

SBC 

YC00R+1.Y 

C411 

38 

SEC 


C4A3 

85 FE 

STA 

TEMP2 

C412 

ED 09 DC 

SBC 

$DC09 

C4A5 

90 OF 

BCC 

OWAYY 

C415 

D8 

CLD 


C4A7 

A5FD 

LDA 

TEMPI 

C416 

85 02 SIXTY 

STA 

TEMP 

C4A9 

F9 61 C7 

SBC 

COLYT.Y 

C418 

4A 

LSR 

A 

(MAC 

A5FE 

LDA 

TEMP2 

C419 

4A 

LSR 

A 

(MAE 

F9 62 C7 

SBC 

C0LYT+1.Y 

C41A 

4A 

LSR 

A 

C4B1 

BO 21 

BCS 

NCOL 

C41B 

4A 

LSR 

A 

C4B3 

4C D1 C4 

JMP 

COL 

C41C 

09 30 

ORA 

#$30 

C4B6 

B9 20 00 OWAYY 

LDA 

YCOOR.Y 

C41E 

8D3C04 

STA 

$043C 

C4B9 

38 

SEC 


C421 

A5 02 

LDA 

TEMP 

(MBA 

F5 20 

SBC 

YCOOR.X 

C423 

29 OF 

AND 

#$0F 

C4BC 

85 FD 

STA 

TEMPI 

C425 

09 30 

ORA 

#$30 

C4BE 

B9 21 00 

LDA 

YC00R+1.Y 

C427 

8D 3D 04 

STA 

$043D 

C4C1 

F5 21 

SBC 

YC00R+1.X 

C42A 

86 02 

STX 

TEMP 

C4C3 

85 FE 

STA 

TEMP2 

C42C 

AD 36 C7 

LDA 

CLK 

C4C5 

A5FD 

LDA 

TEMPI 

C42F 

38 

SEC 


C4C7 

FD 61 C7 

SBC 

COLYT.X 

C430 

E5 02 

SBC 

TEMP 

(MCA 

A5FE 

LDA 

TEMP2 

C432 

09 30 

ORA 

#$30 

C4CC 

FD 62 C7 

SBC 

C0LYT+1.X 

C434 

8D3A04 

STA 

$043A 

C4CF 

BO 03 

BCS 

NCOL 

C437 

AD 0A DC 

LDA 

$DC0A 

C4D1 




C43A 

CD 36 C7 

CMP 

CLK 

A9 00 COL 

LDA 

#0 

C43D 

FO 03 

BEQ 

TIMUP 

C4D3 

60 

RTS 


C43F 

4C F4 Cl 

JMP 

MAIN 

C4D4 

A9 01 NCOL 

LDA 

#1 





C4D6 

60 

RTS 


C442 

A9 00 TIMUP 

LDA 

#0 





C444 

8D15 DO 

STA 

$D015 

;check 

collision of sprite x 



C447 

AO 02 

LDY 

#2 

;and each asteroid 



C449 

B9 00 08 FZP 

LDA 

$0800,Y 

J 




C44C 

99 00 00 

STA 

$0000,Y 

C4D7 

A5 45 ASTCOL 

LDA 

CLLREG 

C44F 

C8 

INY 


C4D9 

OA 

ASL 

A 

C450 

DO F7 

BNE 

FZP 

C4DA 

OA 

ASL 

A 

C452 

A9 01 

LDA 

#1 

C4DB 

85 02 

STA 

TEMP 

C454 

8D OE DC 

STA 

$DC0E 

C4DD 

AO OA 

LDY 

#10 

C457 

4C 8C CO 

JMP 

TITLE 

C4DF 

06 02 HITL 

ASL 

TEMP 





C4E1 

90 05 

BCC 

NHIT 

; check coord for collision 



C4E3 

20 5AC4 

JSR 

CKCOL 

; between sprite x and sprite y 



C4E6 

FO 09 

BEQ 

HIT 





C4E8 

88 NHIT 

DEY 


C45A 

B510 CKCOL 

LDA 

XCOOR.X 

C4E9 

88 

DEY 


C45C 

38 

SEC 


C4EA 

CO 02 

CPY 

#2 

C45D 

F9 10 00 

SBC 

XCOOR.Y 

C4EC 

DO FI 

BNE 

HITL 

C460 

85 FD 

STA 

TEMPI 

C4EE 

A9 01 

LDA 

#1 

C462 

B5 11 

LDA 

XCOOR+1.X 

C4F0 

60 

RTS 


C464 

F9 11 00 

SBC 

XCOOR+1.Y 

! 




C467 

85 FE 

STA 

TEMP2 

;push asteroid 



C469 

90 OF 

BCC 

OWAY 

C4F1 

A9 01 HIT 

LDA 

#1 

C46B 

A5FD 

LDA 

TEMPI 

C4F3 

85 02 

STA 

TEMP 

C46D 

F9 51 C7 

SBC 

COLXT.Y 

C4F5 

C8 

INY 


C470 

A5FE 

LDA 

TEMP2 

C4F6 

E8 

INX 


C472 

F9 52 C7 

SBC 

COLXT+1.Y 

C4F7 

B5 30 DFLCA 

LDA 

XYSPD.X 

C475 

B0 5D 

BCS 

NCOL 

C4F9 

30 07 

BMI 

NEGA 

C477 

4C95C4 

JMP 

CKY 

C4FB 

4A 

LSR 

A 

C47A 

B9 10 00 OWAY 

LDA 

XCOOR.Y 

(MFC 

4A 

LSR 

A 

C47D 

38 

SEC 


(MFD 

4A 

LSR 

A 

C47E 

F5 10 

SBC 

XCOOR.X 

C4FE 

4A 

LSR 

A 

C480 

85 FD 

STA 

TEMPI 

C4FF 

4C 08 C5 

JMP 

INFLA 

C482 

B9 11 00 

LDA 

XCOOR+1.Y 

C502 

4A NEGA 

LSR 

A 

C485 

F5 11 

SBC 

XCOOR+1.X 

C503 

4A 

LSR 

A 

C487 

85 FE 

STA 

TEMP2 

C504 

4A 

LSR 

A 

C489 

A5FD 

LDA 

TEMPI 

C505 

4A 

LSR 

A 

C48B 

FD 51 C7 

SBC 

COLXT.X 

C506 

09 FO 

ORA 

#$F0 

C48E 

A5 FE 

LDA 

TEMP2 

C508 

18 INFLA 

CLC 


C490 

FD 52 C7 

SBC 

COLXT+1.X 

C509 

79 30 00 

ADC 

XYSPD.Y 

C493 

B0 3F 

BCS 

NCOL 

C50C 

10 08 

BPL 

MVfA 





C50E 

C9C0 

CMP 

#192 

C495 

B5 20 CKY 

LDA 

YCOOR.X 

C510 

BO OA 

BCS 

NDFLCA 

C497 

38 

SEC 


C512 

A9C0 

LDA 

#192 





r 


Chapter 3 


C514 

DO 06 

BNE 

NDFLCA 

C516 

C9 41 MVFA 

CMP 

#65 

C518 

90 02 

BCC 

NDFLCA 

C51A 

A9 40 

LDA 

#64 

C51C 

99 30 00 NDFLCA 

STA 

XYSPD.Y 

C51F 

CA 

DEX 

C520 

88 

DEY 


C521 

C6 02 

DEC 

TEMP 

C523 

FO D2 

BEQ 

DFLCA 

C525 

A9 00 

LDA 

#0 

C527 

60 

RTS 



;make hit sound -register y 


C528 

A9 00 HTSND 

LDA 

#0 

C52A 

99 06 D4 

STA 

$D406,Y 

C52D 

99 47 00 

STA 

FRSCNT.Y 

C530 

99 04 D4 

STA 

$D404,Y 

C533 

A9 0A 

LDA 

#10 

C535 

99 01 D4 . 

STA 

$D401,Y 

C538 

A9 35 

LDA 

#$35 

C53A 

99 05 D4 

STA 

$D405,Y 

C53D 

A9 21 

LDA 

#33 

C53F 

99 04 D4 

STA 

$D404,Y 

C542 

60 

RTS 


;make fire sound -register y 



C543 

A9 00 FRSND 

LDA 

#0 

C545 

99 06 D4 

STA 

$D406,Y 

C548 

99 04 D4 

STA 

$D404,Y 

C54B 

A9 28 

LDA 

#40 

C54D 

99 47 00 

STA 

FRSCNT.Y 

C550 

99 01 D4 

STA 

$D401 ,Y 

C553 

A9 09 

LDA 

#9 

C555 

99 05 D4 

STA 

$D405,Y 

C558 

A9 11 

LDA 

#17 

C55A 

99 04 D4 

STA 

$D404,Y 

C55D 

60 

RTS 


C55E 

A9 90 KILL 

LDA 

#144 

C560 

99 F8 07 

STA 

2040.Y 

C563 

B9 85 C7 

LDA 

CRWDT.Y 

C566 

8D 05 C6 

STA 

WCRWD+1 

;set which crowd cheers 



C569 

E8 

INX 


C56A 

A9 01 

LDA 

#1 

C56C 

85 48 

STA 

CRWDCN 

C56E 

A9 20 

LDA 

#$20 

C570 

20 EE C6 

JSR 

SCORE 

;explosion 



C573 

AO 07 

LDY 

#7 

C575 

A9 00 

LDA 

#0 

C577 

88 CTSND 

DEY 


C578 

99 OE D4 

STA 

$D40E,Y 

C57B 

DO FA 

BNE 

CTSND 

C57D 

A9 0A 

LDA 

#10 

C57F 

8D 13 D4 

STA 

$D413 

C582 

A9 08 

LDA 

#8 

C584 

8D OF D4 

STA 

$D40F 

C587 

A9 81 

LDA 

#129 

C589 

8D 12 D4 

STA 

$D412 

C58C 

A9 IE 

LDA 

#30 

C58E 

85 46 

STA 

TIMCNT 

C590 

20 OB C6 EXPLO 

JSR 

MOVE 

C593 

A9 01 

LDA 

#1 

C595 

2C OF DCTMR 

BIT 

$DCOF 

C598 

DO FB 

BNE 

TMR 

C59A 

A9 09 

LDA 

#9 

C59C 

8D OF DC 

STA 

$DCOF 

C59F 

C6 46 

DEC 

TIMCNT 

142 





C5A1 

DO ED 

BNE 

EXPLO 

icheering sound 



C5A3 

A9 80 

LDA 

#128 

C5A5 

8D 12 D4 

STA 

$D412 

C5A8 

A9 8C 

LDA 

#$8C 

C5AA 

8D 13 D4 

STA' 

$D413 

C5AD 

A9 11 

LDA 

#17 

C5AF 

8D OF D4 

STA 

$D40F 

C5B2 

A9 AO 

LDA 

#160 

C5B4 

8D 16 D4 

STA 

$D416 

C5B7 

A9 84 

LDA 

#$84 

C5B9 

8D 17 D4 

STA 

$D417 

C5BC 

A9 IF 

LDA 

#31 

C5BE 

8D 18 D4 

STA 

$D418 

C5C1 

A9 81 

LDA 

#129 

C5C3 

8D 12 D4 

STA 

$D412 

C5C6 

A9 3C 

LDA 

#%00111100 

C5C8 

8D 15 DO 

STA 

$0015 

C5CB 

A9 46 

LDA 

#70 

C5CD 

85 46 

STA 

TIMCNT 

C5CF 

20 OB C6 CHEER 

JSR 

MOVE 

C5D2 

20 F2 C5 

JSR 

CROWD 

C5D5 

A9 01 

LDA 

#1 

C5D7 

2C OF DCTMR2 

BIT 

$DCOF 

C5DA 

DO FB 

BNE 

TMR2 

C5DC 

A9 09 

LDA 

#9 

C5DE 

8D OF DC 

STA 

$DCOF 

C5E1 

C6 46 

DEC 

TIMCNT 

C5E3 

DOEA 

BNE 

CHEER 

C5E5 

A9 00 

LDA 

#0 

C5E7 

8D 17 D4 

STA 

$D417 

C5EA 

A9 OF 

LDA 

#15 

C5EC 

8D 18 D4 

STA 

$D418 

C5EF 

4C 7C Cl 

JMP 

SET 

iswitch 

characters on crowd 



C5F2 

C6 48 CROWD 

DEC 

CRWDCN 

C5F4 

DO 14 

BNE 

NMCW 

C5F6 

A9 08 

LDA 

#8 

C5F8 

85 48 

STA 

CRWDCN 

C5FA 

AO OA 

LDY 

#10 

C5FC 

AD 87 C7 

LDA 

CRWDT+2 

C5FF 

49 01 

EOR 

#1 

C601 

8D 87 C7 

STA 

CRWDT+2 

C604 

99 00 04 WCRWD 

STA 

$0400,Y 

C607 

88 

DEY 


C608 

10 FA 

BPL 

WCRWD 

C60A 

60 NMCW 

RTS 


;move sprites 



C60B 

A2 OE MOVE 

LDX 

#14 

;add x speed to coord 



C60D 

B5 30 POSI 

LDA 

XYSPD.X 

C60F 

10 ID 

BPL 

ADD 

C611 

C9 FE 

CMP 

#254 

C613 

BO 3E 

BCS 

B2 

C615 

75 10 

ADC 

XCOOR.X 

C617 

95 10 

STA 

XCOOR.X 

C619 

B5 11 

LDA 

XC00R+1.X 

C61B 

E9 00 

SBC 

#0 

C61D 

95 11 

STA 

XC00R+1.X 

C61F 

C9 05 

CMP 

#5 

C621 

90 28 

BCC 

REV 

C623 

DO 2E 

BNE 

B2 

C625 

B5 10 

LDA 

XC00R.X 

C627 

C9 40 

CMP 

#64 

C629 

BO 28 

BCS 

B2 

C62B 

4C 4B C6 

JMP 

REV 





The Source Code 


C62E 

C9 03 ADD 

CMP 

#3 

C630 

90 21 

BCC 

B2 

C632 

18 

CLC 


C633 

75 10 

ADC 

XC00R.X 

C635 

95 10 

STA 

XC00R.X 

C637 

B5 11 

LDA 

XC00R+1.X 

C639 

69 00 

ADC 

#0 

C63B 

95 11 

STA 

XC00R+1.X 

C63D 

DD89 C7 

CMP 

BNCXT+1.X 

cm 

90 11 

BCC 

B2 

C642 

DO 07 

BNE 

REV 

C644 

B5 10 

LDA 

XC00R.X 

C646 

DD88 C7 

CMP 

BNCXT.X 

C649 

90 08 

BCC 

B2 


;hit boundry - reverse x direction 


C64B 

B5 30 REV 

LDA 

XYSPD.X 

C64D 

49 FF 

EOR 

#$FF 

C64F 

A8 

TAY 


C650 

C8 

INY 


C651 

94 30 

STY 

XYSPD.X 

;divide x coord for position 



C653 

B510 B2 

LDA 

XCOOR.X 

C655 

85 02 

STA 

TEMP 

C657 

A0 08 

LDY 

#8 

C659 

B5 11 

LDA 

XC00R+1.X 

C65B 

C9 30 

CMP 

#48 

C65D 

90 02 

BCC 

HIBIT 

C65F 

E9 30 

SBC 

#48 

C661 

26 49 HIBIT 

ROL 

POSMSB 

C663 

06 02 L11 

ASL 

TEMP 

C665 

2A 

ROL 

A 

C666 

C9 30 

CMP 

#48 

C668 

90 04 

BCC 

DVCT 

C66A 

E9 30 

SBC 

#48 

C66C 

E6 02 

INC 

TEMP 

C66E 

88 DVCT 

DEY 


C66F 

DO F2 

BNE 

L11 

C671 

A5 02 

LDA 

TEMP 

C673 

9D00 DO 

STA 

$D000,X 

;add y speed to coord 



C676 

B5 31 

LDA 

XYSPD+1.X 

C678 

10 ID 

BPL 

ADDY 

C67A 

C9FE 

CMP 

#254 

C67C 

B0 3E 

BCS 

B3 

C67E 

75 20 

ADC 

YCOOR.X 

C680 

95 20 

STA 

YC00R.X 

C682 

B5 21 

LDA 

YC00R+1.X 

C684 

E9 00 

SBC 

#0 

C686 

95 21 

STA 

YC00R+1.X 

C688 

C9 11 

CMP 

#17 

C68A 

90 28 

BCC 

REVY 

C68C 

D0 2E 

BNE 

B3 

C68E 

B5 20 

LDA 

YC00R.X 

C690 

C9 80 

CMP 

#128 

C692 

B0 28 

BCS 

B3 

C694 

4C B4 C6 

JMP 

REVY 

C697 

C9 03 ADDY 

CMP 

#3 

C699 

90 21 

BCC 

B3 

C69B 

18 

CLC 


C69C 

75 20 

ADC 

YCOOR.X 

C69E 

95 20 

STA 

YC00R.X 

C6A0 

B5 21 

LDA 

YC00R+1.X 

C6A2 

69 00 

ADC 

#0 

C6A4 

95 21 

STA 

YCOOR+1.X 

C6A6 

DD99 C7 

CMP 

BNCVT+1.X 

C6A9 

90 11 

BCC 

B3 

C6AB 

DO 07 

BNE 

REVY 

C6AD 

B5 20 

LDA 

YCOOR.X 

C6AF 

DD98 C7 

CMP 

BNCYT.X 


C6B2 

90 08 

BCC 

B3 

reverse y direction 



C6B4 

B5 31 REVY 

LDA 

XYSPD+1.X 

C6B6 

49 FF 

EOR 

#$FF 

C6B8 

A8 

TAY 


C6B9 

C8 

INY 


C6BA 

94 31 

STY 

XYSPD+1.X 

;divide y coord for position 



C6BC 

B5 21 B3 

LDA 

YCOOR+1.X 

C6BE 

85 02 

STA 

TEMP 

C6C0 

B5 20 

LDA 

YCOOR.X 

C6C2 

AO 06 

LDY 

#6 

C6C4 

46 02 LI 2 

LSR 

TEMP 

C6C6 

6A 

ROR 

A 

C6C7 

88 

DEY 


C6C8 

DO FA 

BNE 

L12 

C6CA 

9D 01 DO 

STA 

$D001,X 

C6CD 

CA 

DEX 


C6CE 

GA 

DEX 


C6CF 

30 03 

BMI 

NPOSI 

C6D1 

4C OD C6 

JMP 

POSI 

C6D4 

A5 49 NPOSI 

LDA 

POSMSB 

C6D6 

8D 10 DO 

STA 

$D010 

;update fire sound 



C6D9 

A4 47 

LDY 

FRSCNT 

C6DB 

FO 06 

BEQ 

NFRS 

C6DD 

88 

DEY 


C6DE 

84 47 

STY 

FRSCNT 

C6E0 

8C01 D4 

STY 

$D401 

C6E3 

A4 4E NFRS 

LDY 

FRSCN2 

C6E5 

FO 06 

BEQ 

NFRS2 

C6E7 

88 

DEY 


C6E8 

84 4E 

STY 

FRSCN2 

C6EA 

8C 08 D4 

STY 

$D408 

C6ED 

60 NFRS2 

RTS 


;add to score -player x 



C6EE 

F8 SCORE 

SED 


C6EF 

18 

CLC 


C6F0 

7D 32 C7 

ADC 

SCRT.X 

C6F3 

9D 32 C7 

STA 

SCRT.X 

C6F6 

BD 33 C7 

LDA 

SCRT+1.X 

C6F9 

69 00 

ADC 

#0 

C6FB 

9D33 C7 

STA 

SCRT+1.X 

C6FE 

D8 

CLD 


{display 

score 



C6FF 

AO 01 DSCOR 

LDY 

#1 

C701 

AD 34 C7 

LDA 

SCRT+2 

C704 

85 FD 

STA 

TEMPI 

C706 

AD 35 C7 

LDA 

SCRT+3 

C709 

85 FE 

STA 

TEMP2 

C70B 

A2 04 NXDGT 

LDX 

#4 

C70D 

A9 00 

LDA 

#0 

C70F 

06 FD SFT 

ASL 

TEMPI 

C711 

26 FE 

ROL 

TEMP2 

C713 

2A 

ROL 

A 

C714 

CA 

DEX 


C715 

DO F8 

BNE 

SFT 

C717 

09 30 

ORA 

#$30 

C719 

99 28 04 

STA 

$0428,Y 

C71C 

C8 

INY 


C71D 

CO 05 

CPY 

#5 

C71F 

DO OC 

BNE 

SCOR2 

C721 

AO 23 

LDY 

#35 

C723 

AD 32 C7 

LDA 

SCRT 

C726 

85 FD 

STA 

TEMPI 
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C728 

AD 33 C7 

LDA 

SCRT+1 

C7FD 

40 40 72 

.BYT 

64,64,114,64,64,64, 

C72B 

85 FE 

STA 

TEMP2 




64,73 

C72D 

CO 27 SC0R2 

CPY 

#39 

C805 

5D 30 30 

.BYT 

93,48,48,48,48,93,1 

C72F 

DO DA 

BNE 

NXDGT 




32,132 

C731 

60 

RTS 


C80D 

84 84 84 

.BYT 

132,132,132,132,13 

C732 







2,132,132,132 

00 00 00 SCRT 

.BYT 

0,0,0,0 

C815 

84 5D30 

.BYT 

132,93,48,58,48,48, 

C736 

01 CLK 

.BYT 

1 




93,132 

C737 

01 SPD 

.BYT 

1 

C81D 

84 84 84 

.BYT 

132,132,132,132,13 

; 







2,132,132,132 

;hum sound 



C825 

84 84 5D 

.BYT 

132,132,93,48,48,48 

C738 

00 06 00 SNDT 

.BYT 

0,6,0,0,17,15,0 




,48,93 

C73F 

04 03 00 

.BYT 

4,3,0,0,21,15,0 

C82D 

6B 40 40 

.BYT 

107,64,64,64,64,113 

C746 

04 0C00 

.BYT 

4,12,0,0,21,15,0 




,64,64 

C74D 

00 00 00 

.BYT 

0,0,0,15 

C835 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

; 







4,64 

;width of sprites 



C83D 

40 71 40 

.BYT 

64,113,64,64,64,64, 

C751 

30 03 30 COLXT 

.WOR 

816,816 




113,64 

C755 

80 04 80 

.WOR 

1152,1152 

C845 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

C759 

80 04 80 

.WOR 

1152,1152 




4,64 

C75D 

FO 00 FO 

.WOR 

240,240 

C84D 

40 40 71 

.BYT 

64,64,113,64,64,64, 

; 







64,115 

;height of sprites 



C855 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

C761 

00 03 00 COLYT 

.WOR 

768,768 




2,32 

C765 

CO 04 CO 

.WOR 

1216,1216 

C85D 

20 20 20 

.BYT 

32,32,32,128,32,32, 

C769 

CO 04 CO 

.WOR 

1216,1216 




32,32 

C76D 

00 01 00 

.WOR 

256,256 

C865 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

; 







2,32 

accelerations for direction 



C86D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

C771 

FA FB FC THYT 

.BYT 

250,251,252,254 




2,32 

C775 

00 02 04 THXT 

.BYT 

0,2,4,5 

C875 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

C779 

06 05 04 

.BYT 

6,5,4,2 




2,93 

C77D 

00 FE FC 

.BYT 

0,254,252,251 

C87D 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

C781 

FA FB FC 

.BYT 

250,251,252,254 




2,32 

; 




C885 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

;crowd position 






2,32 

C785 

3F 2E CRWDT 

.BYT 

63,46 

C88D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

; 







2,32 

;crowd character 



C895 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

C787 

85 

.BYT 

133 




2,32 





C89D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

;max x coord for sprite 






2,93 

C788 

FO 3C FO BNCXT 

.WOR 

15600,15600 

C8A5 

5D 20 20 

.BYT 

93,32,32,32,128,32, 

C78C 

70 3B 70 

.WOR 

15216,15216 




32,32 

C790 

70 3B 70 

.WOR 

15216,15216 

C8AD 

20 13 20 

.BYT 

32,19,32,16,32,1,32, 

C794 

30 3F30 

.WOR 

16176,16176 




3 

i 




C8B5 

20 05 20 

.BYT 

32,5,32,32,32,1,32, 

;max y coord 






18 

C798 

00 3B 00 BNCYT 

.WOR 

15104,15104 

C8BD 

20 05 20 

.BYT 

32,5,32,14,32,1,32,3 

C79C 

00 39 00 

.WOR 

14592,14592 




2 

C7A0 

00 39 00 

.WOR 

14592,14592 

C8C5 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

C7A4 

00 3D 00 

.WOR 

15616,15616 




2,93 

I 




C8CD 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

;initial variable values 






2,32 

C7A8 

90 06 DO INITT 

.WOR 

1680,15312,8448,8 

C8D5 

80 63 63 

.BYT 

128,99,99,99,99,99, 




448 




99,99 

C7B0 

00 21 00 

.WOR 

8448,8448,0,0 

C8DD 

63 63 63 

.BYT 

99,99,99,99,99,99,9 

C7B8 

CO 25 CO 

.WOR 

9664,9664,5696,81 




9,99 




92 

C8E5 

63 63 63 

.BYT 

99,99,99,99,99,99,3 

C7C0 

CO 29 80 

.WOR 

10688,13184,0,0 




2,32 

C7C8 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

C8ED 

20 20 20 

.BYT 

32,32,32,129,32,32, 

C7D0 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 




32,93 

C7D8 

01 04 OC 

.BYT 

1,4,12,0,0 

C8F5 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

; 







2,32 

rtrtle screen 



C8FD 

20 20 20 

.BYT 

32,32,32,32,2,25,58, 

C7DD 

55 40 40 SCREEN 

.BYT 

85,64,64,64,64,114, 




32 




64,64 

C905 

02 12 19 

.BYT 

2,18,25,1,14,32,6,9 

C7E5 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

C90D 

OC 05 13 

.BYT 

12,5,19,32,32,32,32, 




4,64 




32 

C7ED 

40 72 40 

.BYT 

64,114,64,64,64,64, 

C915 

20 20 20 

.BYT 

32,32,32,32,32,32,3 




114,64 




2,93 

C7F5 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

C91D 

5D 20 20 

.BYT 

93,32,32,32,32,32,1 




4.64 




29.32 
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C925 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C92D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C935 

20 20 20 

.BYT 

32,32,32,131,32,32, 

32,32 

C93D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

C945 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

C94D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C955 

20 82 20 

.BYT 

32,130,32,32,32,32, 

32,32 

C95D 

20 20 20 

.BYT 

32,32,32,32,32,32,1 

28,32 

C965 

80 20 60 

.BYT 

128,32,96,32,32,32, 

32,93 

C96D 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

C975 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C97D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C985 

20 20 20 

.BYT 

32,32,32,128,32,32, 

32,32 

C98D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

C995 

5D 20 20 

.BYT 

93,32,32,32,128,32, 

32,32 

C99D 

20 06 31 

.BYT 

32,6,49,32,45,32,19, 

20 

C9A5 

01 12 14 

.BYT 

1,18,20,32,7,1,13,5 

C9AD 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C9B5 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

C9BD 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

C9C5 

20 20 81 

.BYT 

32,32,129,32,32,32, 

32,32 

C9CD 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C9D5 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

C9DD 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

C9E5 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

C9ED 

20 06 33 

.BYT 

32,6,51,32,45,32,3,8 

C9F5 

01 0E 07 

.BYT 

1,14,7,5,32,19,16,5 

C9FD 

05 04 20 

.BYT 

5,4,32,32,32,32,32, 

32 

CA05 

80 83 20 

.BYT 

128,131,32,32,32,32 

,32,93 

CAOD 

5D20 83 

.BYT 

93,32,131,32,32,32, 

32,32 

CA15 

20 20 80 

.BYT 

32,32,128,32,32,129 

,32,32 

CA1D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CA25 

20 20 20 

.BYT 

32,32,32,32,32,128, 

32,32 

CA2D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

CA35 

5D 20 81 

.BYT 

93,32,129,32,32,32, 

32,32 

CA3D 

20 06 35 

.BYT 

32,6,53,32,45,32,3,8 

CA45 

01 0E 07 

.BYT 

1,14,7,5,32,20,9,13 

CA4D 

05 20 0C 

.BYT 

5,32,12,9,13,9,20,32 

CA55 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 


CA5D 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CA65 

20 20 20 

.BYT 

32,32,32,32,32,128, 

32,32 

GA6D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CA75 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CA7D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

CA85 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CA8D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CA95 

20 20 20 

.BYT 

32,32,32,32,32,32,1 

28,32 

CA9D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CAA5 

20 20 20 

.BYT 

32,32,32,32,32,128, 

32,93 

CAAD 

5D 20 20 

.BYT 

93,32,32,129,32,32, 

32,32 

CABS 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

GABD 

20 20 20 

.BYT 

32,32,32,32,32,129, 

32,32 

CAC5 

20 20 20 

.BYT 

32,32,32,130,32,32, 

32,32 

CACD 

20 20 20 

.BYT 

32,32,32,32,32,32,1 

28,93 

CAD5 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CADD 

20 20 20 

.BYT 

32,32,32,32,32,32,1 

9,16 

GAE5 

05 05 04 

.BYT 

5,5,4,32,61,32,53,32 

CAED 

81 20 20 

.BYT 

129,32,32,32,32,128 

,32,32 

CAF5 

81 20 20 

.BYT 

129,32,32,32,32,32, 

32,93 

CAFD 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CB05 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CBOD 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CB15 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CB1D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

CB25 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CB2D 

20 20 80 

.BYT 

32,32,128,32,32,32, 

32,20 

CB35 

09 OD 05 

.BYT 

9,13,5,32,61,32,50, 

58 

CB3D 

30 30 20 

.BYT 

48,48,32,32,128,32, 

32,32 

CB45 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

CB4D 

5D 20 83 

.BYT 

93,32,131,32,32,32, 

32,32 

CB55 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,129 

CB5D 

20 20 20 

.BYT 

32,32,32,128,32,32, 

32,32 

CB65 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 

CB6D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,93 

CB75 

5D 20 20 

.BYT 

93,32,32,32,32,32,3 

2,32 

CB7D 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

2,32 
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CB85 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

CD05 

00 01 IF 

.BYT 

0,1,31,248,0,1,15,24 




2,32 




0 

CB8D 

20 20 20 

.BYT 

32,32,32,32,32,32,1 

CDOD 

00 01 OF 

.BYT 

0,1,15,240,0,1,7,224 




28,32 

CD15 

00 01 07 

.BYT 

0,1,7,224,0,1,3,192 

CB95 

20 20 20 

.BYT 

32,32,32,32,32,32,3 

CD1D 

00 01 03 

.BYT 

0,1,3,192,0,1,1,128 




2,93 

CD25 

00 20 OC 

.BYT 

0,32,12,0,2,13,0,2 

CB9D 

4A 40 40 

.BYT 

74,64,64,64,64,64,6 

CD2D 

OF EC 00 

.BYT 

15,236,0,1,15,248,0, 




4,64 




1 

CBA5 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

CD35 

OF FO 00 

.BYT 

15,240,0,1,15,224,0, 




4,64 




1 

CBAD 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

CD3D 

OF CO 00 

.BYT 

15,192,0,1,15,128,0, 




4,64 




1 

CBB5 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

CD45 

OF 00 02 

.BYT 

15,0,2,14,0,2,12,0 




4,64 

CD4D 

IE 03 00 

.BYT 

30,3,0,2,3,0,2,7 

CBBD 

40 40 40 

.BYT 

64,64,64,64,64,64,6 

CD55 

80 00 01 

.BYT 

128,0,1,7,192,0,1,7 




4,75 

CD5D 

FO 00 01 

.BYT 

240,0,1,15,254,0,1, 

CBC5 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 




15 

CBCD 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

CD65 

F8 00 01 

.BYT 

248,0,1,15,224,0,1, 

CBD5 

80 80 92 

.BYT 

128,128,146,147,14 




31 




8,149,145,145 

CD6D 

80 00 01 

.BYT 

128,0,1,30,0,2,24,0 





CD75 

25 CO 00 

.BYT 

37,192,0,1,1,128,0,1 

icompacted sprite data 



CD7D 

03 CO 00 

.BYT 

3,192,0,1,7,224,0,1 

CBDD 

01 80 00 SPRITE 

.BYT 

1,128,0,1,3,192,0,1 

CD85 

OF FO 00 

.BYT 

15,240,0,1,31,240,0, 

CBE5 

03 CO 00 

.BYT 

3,192,0,1,7,224,0,1 




1 

CBED 

07 EO 00 

.BYT 

7,224,0,1,15,240,0,1 

CD8D 

3F F8 00 

.BYT 

63,248,0,1,127,254, 

CBF5 

OF FO 00 

.BYT 

15,240,0,1,31,248,0, 




0,45 




1 

CD95 

1C 00 02 

.BYT 

28,0,2,120,0,1,3,248 

CBFD 

IF F8 00 

.BYT 

31,248,0,1,48,12,0, 

CD9D 

00 01 OF 

.BYT 

0,1,15,248,0,1,127,2 




36 




48 

CC05 

30 00 02 

.BYT 

48,0,2,112,0,2,240,0 

CDA5 

00 01 OF 

.BYT 

0,1,15,248,0,1,3,248 

GOOD 

01 01 FO 

.BYT 

1,1,240,0,1,3,240,0 

CDAD 

00 02 78 

.BYT 

0,2,120,0,2,28,0,44 

CC15 

01 07 FO 

.BYT 

1,7,240,0,1,15,240,0 

CDB5 

7F FE 00 

.BYT 

127,254,0,1,63,248, 

CC1D 

01 IF FO 

.BYT 

1,31,240,0,1,55,240, 




0,1 




0 

CDBD 

IF FO 00 

.BYT 

31,240,0,1,15,240,0, 

CC25 

02 BO 00 

.BYT 

2,176,0,2,48,0,36,12 




1 

CC2D 

00 02 3C 

.BYT 

0,2,60,0,2,252,0,1 

CDC5 

07 EO 00 

.BYT 

7,224,0,1,3,192,0,1 

CC35 

03F8 00 

.BYT 

3,248,0,1,15,248,0,1 

CDCD 

01 80 00 

.BYT 

1,128,0,2,192,0,32, 

CC3D 

3F F8 00 

.BYT 

63,248,0,1,7,240,0,1 




48 

CC45 

01 FO 00 

.BYT 

1,240,0,2,240,0,2,96 

CDD5 

00 02 3C 

.BYT 

0,2,60,0,2,63,0,2 

CC4D 

00 02 60 

.BYT 

0,2,96,0,41,127,254, 

CDDD 

IF CO 00 

.BYT 

31,192,0,1,31,240,0, 

■j 

CC55 

01 IF FC 

.BYT 

Q 

1,31,252,0,1,15,248, 

CDE5 

IF FC 00 

.BYT 

31,252,0,1,15,224,0, 

-| 

CC5D 

01 OF FO 

.BYT 

g 

1,15,240,0,1,7,224,0 

CDED 

OF 80 00 

.BYT 

15,128,0,1,15,0,2,6 

CC65 

01 03 CO 

.BYT 

1,3,192,0,1,1,128,0 

CDF5 

00 02 06 

.BYT 

0,2,6,0,30,12,0,2 

CC6D 

01 03 00 

.BYT 

1,3,0,36,56,0,2,30 

CDFD 

OE 00 02 

.BYT 

14,0,2,15,0,2,15,128 

CC75 

00 02 IF 

.BYT 

0,2,31,192,0,1,31,2 

CE05 

00 01 OF 

.BYT 

0,1,15,192,0,1,15,2 




40 




24 

CC7D 

00 01 IF 

.BYT 

0,1,31,254,0,1,31,2 

CEOD 

00 01 OF 

.BYT 

0,1,15,240,0,1,15,2 




40 




48 

CC85 

00 01 IF 

.BYT 

0,1,31,192,0,1,30,0 

CE15 

00 01 OF 

.BYT 

0,1,15,236,0,1,13,0 

CC8D 

02 38 00 

.BYT 

2,56,0,36,3,0,2,1 

CE1D 

02 OC 00 

.BYT 

2,12,0,33,8,16,0,1 

CC95 

80 00 01 

.BYT 

128,0,1,3,192,0,1,7 

CE25 

04 32 00 

.BYT 

4,50,0,1,6,20,0,1 

CC9D 

EO 00 01 

.BYT 

224,0,1,15,240,0,1, 

CE2D 

14 A4 00 

.BYT 

20,164,0,1,24,204,0, 

•| 

CCA5 

F8 00 01 

.BYT 

15 

248,0,1,31,252,0,1,1 

CE35 

03 00 02 

.BYT 

3,0,2,109,28,0,1,8 




27 

CE3D 

4A 00 02 

.BYT 

74,0,2,192,0,1,9,48 

CCAD 

FE 00 27 

.BYT 

254,0,39,192,0,2,19 

CE45 

00 01 01 

.BYT 

0,1,1,0,3,128,0,29 




2,0 

CE4D 

60 00 02 

.BYT 

96,0,2,240,0,2,96,0 

CCB5 

01 01 EO 

.BYT 

1,1,224,0,1,3,224,0 

CE55 

3AFF 00 

.BYT 

58,255,0,1,15,190,2 

CCBD 

01 OF EO 

.BYT 

1,15,224,0,1,127,24 




40,14 




0,0 

CE5D 

FF FO 3F 

.BYT 

255,240,63,249,124, 

CCC5 

01 IF FO 

.BYT 

1,31,240,0,1,7,240,0 




63,249,188 

CCCD 

01 01 F8 

.BYT 

1,1,248,0,2,120,0,2 

CE65 

3D 6A B8 

.BYT 

61,106,184,245,123, 

CCD5 

18 00 24 

.BYT 

24,0,36,48,0,2,176,0 




218,181,186 

CCDD 

01 37 FO 

.BYT 

1,55,240,0,1,31,240, 

CE6D 

6A F5 B6 

.BYT 

106,245,182,166,24 




0 




6,182,166,251 

CCE5 

01 OF FO 

.BYT 

1,15,240,0,1,7,240,0 

CE75 

DA 56 FA 

.BYT 

218,86,250,106,90,5 

CCED 

01 03 FO 

.BYT 

1,3,240,0,1,1,240,0 




8,170,88 

CCF5 

02 FO 00 

.BYT 

2,240,0,2,112,0,2,48 

CE7D 

3A A5 A8 

.BYT 

58,165,168,22,150,8 

CCFD 

00 23 30 

.BYT 

0,35,48,12,0,1,31,2 




8,11,86 




48 

CE85 

60 OB 59 

.BYT 

96,11,89,160,0,1,17 


0.0 


146 
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CE8D 

OCFF 00 

.BYT 

12,255,0,1,15,239,1 

76,11 

CE95 

FF BO 3D 

.BYT 

255,176,61,127,252, 

61,181,172 

CE9D 

2F E5 B8 

.BYT 

47,229,184,255,166, 

250,255,171 

CEA5 

DAE5 AA 

.BYT 

218,229,170,105,24 

6,234,170,250 

CEAD 

EF 96 FB 

.BYT 

239,150,251,117,15 

0,58,181,152 

CEB5 

3A 65 98 

.BYT 

58,101,152,37,154,8 

8,9,85 

CEBD 

60 OA 55 

.BYT 

96,10,85,160,0,1,17 

0,0 

CEC5 

OC FF 00 

.BYT 

12,255,0,1,3,255,24 

0,14 

CECD 

D7 FO OE 

.BYT 

215,240,14,219,252, 

59,255,172 

CED5 

3BEA68 

.BYT 

59,234,104,239,174, 

186,239,181 

CEDD 

AA FE D5 

.BYT 

170,254,213,166,25 

4,213,230,245 

CEE5 

96 D6 F6 

.BYT 

150,214,246,235,23 

0,59,239,88 

CEED 

3AAA58 

.BYT 

58,170,88,42,153,15 

2,9,153 

CEF5 

60 OA 55 

.BYT 

96,10,85,160,0,1,17 

0,0 

CEFD 

OC FF 00 

.BYT 

12,255,0,1,15,251,2 

40,14 

CF05 

FF FO 3B 

.BYT 

255,240,59,255,252, 

59,90,172 

CFOD 

3F 6E 98 

.BYT 

63,110,152,111,109, 

174,191,182 

CF15 

AA FE 6A 

.BYT 

170,254,106,102,24 

6,186,182,219 

CF1D 

AE96 FE 

.BYT 

174,150,254,181,86, 

58,181,152 

CF25 

39 A5 98 

.BYT 

57,165,152,42,229,1 

52,9,90 

CF2D 

60 OA 55 

.BYT 

96,10,85,160,0,1,17 

0,0 

CF35 OB 

;redefined characters 

.BYT 

11 

CF36 

00 00 00 CHARAC 

.BYT 

0,0,0,16,0,0,0,0 

CF3E 

00 00 00 

.BYT 

0,0,0,24,0,0,0,0 

CF46 

20 04 00 

.BYT 

32,4,0,58,92,0,32,4 

CF4E 

00 10 49 

.BYT 

0,16,73,24,24,146,8, 

g 

CF56 

33 CC33 

.BYT 

51,204,51,204,51,20 

4,51,204 

CF5E 66 99 66 

;color for top line 

.BYT 

102,153,102,153,10 

2,153,102,153 

CF66 

OF OE OE TPCOLR 

.BYT 

15,14,14,14,14,15,1 

4,14 

CF6E 

OE OE OE 

.BYT 

14,14,14,14,14,14,1 

4,14 

CF76 

OE OF 04 

.BYT 

14,15,4,4,4,4,15,5 

CF7E 

05 05 05 

.BYT 

5,5,5,5,5,5,5,5 

CF86 

05 05 OF 

.BYT 

5,5,15,5,5,5,5,15 



Saloon Shootout 

Source code by David Hensley, Jr. and Kevin Mykytyn 


2800 



*= 

10240 

281A 

A9 00 

LDA 

#0 

; and 3 




281C 

8D 5C 03 

STA 

HIGH 

2800 


TEMPO 

= 

2 

281F 

8D 5D 03 

STA 

HIGH+1 

; and 5 




2822 

START 

= 

* 

2800 


FREE0 

= 

4 

2822 

A9 93 

LDA 

#"{CLR}" 

; and 253 




2824 

20 D2 FF 

JSR 

$FFD2 

2800 


NEW0 

= 

252 

2827 

20 B2 33 

JSR 

HUH 

2800 


CARDS2 

= 

828 

282A 

20 4C 2F 

JSR 

CHARINIT 

2800 


GOODCARD 

= 

838 

282D 

20 5D34 

JSR 

DR/WSCREEN 

2800 


POSITION 

= 

839 

2830 

20 AD 2E 

JSR 

INIT 

2800 


SURPRISE 

= 

842 

2833 

20 70 38 

JSR 

FIXCARDS 

2800 


HCOUNT 

= 

843 

2836 

20 18 2E 

JSR 

DGUN 

2800 


0C0UNT 

= 

844 

2839 

20 FC 29 

JSR 

HOUT 

2800 


WINDOWL 

= 

845 

283C 

CE OB 28 LOOP 

DEC 

GLASSL 

2800 


WINDOWH 

= 

846 

283F 

DO OC 

BNE 

NOGLASS 

2800 


H0RIZ 

= 

847 

2841 

AD OC 28 

LDA 

GLASSH 

2800 


INDEX 

= 

848 

2844 

8D OB 28 

STA 

GLASSL 

; and 851 




2847 

20 08 30 

JSR 

GLASS 

2800 


SCORE 

= 

850 

284A 

20 5F 2A 

JSR 

LOOK 

; and 853 




284D 

CE 09 28 NOGLASS 

DEC 

FALLL 

2800 


TIME 

= 

852 

2850 

DO OC 

BNE 

NOFALL 

2800 


COMPUTER 

= 

854 

2852 

AD OA 28 

LDA 

FALLH 

2800 


JIFF 

= 

855 

2855 

8D 09 28 

STA 

FALLL 

2800 


BULLETS 

= 

856 

2858 

20 8D 30 

JSR 

FALL 

2800 


FLAG 

= 

857 

285B 

20 2D2A 

JSR 

BULLOUT 

; and 859 




285E 

CE 61 03 NOFALL 

DEC 

MOUSEL 

2800 


SCREEN 

= 

858 

2861 

DO 09 

BNE 

NOMOUSE 

; and 861 




2863 

AD 62 03 

LDA 

MOUSEH 

2800 


HIGH 

= 

860 

2866 

8D 61 03 

STA 

MOUSEL 

2800 


GLASSCOUN 

= 

862 

2869 

20 F7 2A 

JSR 

MOUSE 

2800 


MOUSEPOS 

= 

863 

286C 

CE OD 28 NOMOUSE 

DEC 

PIANOL 

2800 


M0USEDIR 

== 

864 

286F 

DO 09 

BNE 

NOPIANO 

2800 


MOUSEL 

= 

865 

2871 

ADOE 28 

LDA 

PIANOH 

2800 


MOUSEH 

= 

866 

2874 

8D OD 28 

STA 

PIANOL 

2800 


BONFLAG 

= 

867 

2877 

20 F7 30 

JSR 

PIANO 

2800 


SONGNUM 

= 

868 

287A 

AD OD 28 NOPIANO 

LDA 

PIANOL 

2800 


N0TENUM 

== 

869 

287D 

C9 0A 

CMP 

#10 

2800 


MB 

= 

10 

287F 

BO OF 

BCS 

NP 

2800 


COUNTER 

= 

870 

2881 

AD 66 03 

LDA 

COUNTER 

2800 

4C 1A 28 


JMP 

MAIN 

2884 

C9 01 

CMP 

#1 

2803 

00 

TEMP 

.BYT 

0 

2886 

DO 08 

BNE 

NP 

2804 

00 

TEMP2 

.BYT 

0 

2888 

AD 11 FF 

LDA 

65297 

2805 

00 

TEMP3 

.BYT 

0 

288B 

29 4F 

AND 

#79 

2806 

00 

TEMP4 

.BYT 

0 

288D 

8D 11 FF 

STA 

65297 

2807 

00 

SEED 

.BYT 

0 

2890 

CE OF 28 NP 

DEC 

JOYL 

2808 

00 

SYNC1 

.BYT 

0 

2893 

DO 09 

BNE 

NOJOY 

2809 

00 

FALLL 

.BYT 

0 

2895 

AD 10 28 

LDA 

JOYH 

280A 

00 

FALLH 

.BYT 

0 

2898 

8D OF 28 

STA 

JOYL 

280B 

00 

GLASSL 

.BYT 

0 

289B 

20 40 2D 

JSR 

JOYSTICK 

280C 

00 

GLASSH 

.BYT 

0 

289E 

CE 18 28 NOJOY 

DEC 

CARDSL 

280D 

00 

PIANOL 

.BYT 

0 

28A1 

DO 09 

BNE 

NOCARDS 

280E 

00 

PIANOH 

.BYT 

0 

28A3 

AD 19 28 

LDA 

CARDSH 

280F 

00 

JOYL 

.BYT 

0 

28A6 

8D 18 28 

STA 

CARDSL 

2810 

00 

JOYH 

.BYT 

0 

28A9 

20 DD37 

JSR 

CARDS 

2811 

00 

LENGTH 

.BYT 

0 

28AC 

20 EE 28 NOCARDS 

JSR 

DELAY 

2812 

00 00 

COLOR 

.BYT 

0,0 

28AF 

CE 57 03 

DEC 

JIFF 

2814 

00 00 

CGLDIF 

.BYT 

0,0 

28B2 

DO 88 

BNE 

LOOP 

2616 

00 

NUMHIT 

.BYT 

0 

28B4 

CE 54 03 

DEC 

TIME 

2817 

00 

FIRED 

.BYT 

0 

28B7 

20 6E 29 

JSR 

SCROUT 

2818 

00 

CARDSL 

.BYT 

0 

28BA 

AD 54 03 

LDA 

TIME 

2819 

00 

CARDSH 

.BYT 

0 

28BD 

FO 08 

BEQ 

FINISH 

281A 


MAIN 

= 

* 

28BF 

AD 58 03 

LDA 

BULLETS 
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28C2 

F0 03 

BEQ 

FINISH 

2952 

C9 24 

CMP 

#36 

28C4 

4C 3C 28 

JMP 

LOOP 

2954 

90 02 

BCC 

PBUL 

28C7 

A9 00 FINISH 

LDA 

#0 

2956 

A9 23 

LDA 

#35 

28C9 

80 11 FF 

STA 

65297 

2958 

8D 58 03 PBUL 

STA 

BULLETS 

28CC 

A2 17 

LDX 

#23 

295B 

60 

RTS 


28CE 

AO 08 

LDY 

#8 

• 




2800 

18 

CLC 


; subtract bullets 



28D1 

20 FO FF 

JSR 

$FFFO 

; 




28D4 

A9 BD 

LDA 

#<MESS2 

295C 

SUBBULL 

= 

* 

28D6 

AO 37 

LDY 

#>MESS2 

295C 

8D 04 28 

STA 

TEMP2 

28D8 

20 08 34 

JSR 

STROUT 

295F 

AD 58 03 

LDA 

BULLETS 

28DB 

20 2D2A 

JSR 

BULLOUT 

2962 

38 

SEC 


28DE 

20 6E 29 

JSR 

SCROUT 

2963 

ED 04 28 

SBC 

TEMP2 

28E1 

20 FC 29 

JSR 

HOUT 

2966 

BO 02 

BCS 

PBUL2 

28E4 

20 E4 FF WTKEY 

JSR 

$FFE4 

2968 

A9 00 

LDA 

#0 

28E7 

C9 0D 

CMP 

#13 

296A 

8D 58 03 PBUL2 

STA 

BULLETS 

28E9 

DO F9 

BNE 

WTKEY 

296D 

60 

RTS 


28EB 

4C 22 28 

JMP 

START 

; 




28EE 

A2 00 DELAY 

LDX 

#0 

; output scores 



28F0 

CA WT 

DEX 


• 




28F1 

DO FD 

BNE 

WT 

296E 

SCROUT 

= 

* 

28F3 

60 

RTS 


296E 

8A 

TXA 






296F 

48 

PHA 


; add 

score 



2970 

98 

m 






2971 

48 

PHA 


28F4 

ADDSCORE 

= 

* 

2972 

A9 92 

LDA 

#"{OFF}" 

$FFD2 

28F4 

18 

CLC 


2974 

20 D2 FF 

JSR 

28F5 

6D 52 03 

ADC 

SCORE 

2977 

A9 05 

LDA 

#"{WHT}" 

$FFD2 

28F8 

8D 52 03 

STA 

SCORE 

2979 

20 D2 FF 

JSR 

28FB 

AD 53 03 

LDA 

SCORE+1 

297C 

A2 06 

LDX 

#6 

28FE 

69 00 

ADC 

#0 

297E 

AO 00 

LDY 

#0 

2900 

8D 53 03 

STA 

SCORE+1 

2980 

18 

CLC 


2903 

AD 63 03 

LDA 

BONFLAG 

2981 

20 FO FF 

JSR 

$FFFO 

2906 

DO 21 

BNE 

NOBONUS 

2984 

AE 52 03 

LDX 

SCORE 

2908 

AD 52 03 

LDA 

SCORE 

2987 

AD 53 03 

LDA 

SCORE+1 

290B 

38 

SEC 


298A 

20 13 34 

JSR 

NUMOUT 

290C 

E9 F4 

SBC 

#<500 

298D 

A2 0A 

LDX 

#10 

290E 

8D 04 28 

STA 

TEMP2 

298F 

AO 00 

LDY 

#0 

2911 

AD 53 03 

LDA 

SCORE+1 

2991 

18 

CLC 


2914 

E9 01 

SBC 

#>500 

2992 

20 FO FF 

JSR 

$FFF0 

2916 

0D 04 28 

ORA 

TEMP2 

2995 

AE 54 03 

LDX 

TIME 

2919 

90 OE 

BCC 

NOBONUS 

2998 

A9 00 

LDA 

#0 

291B 

AD 54 03 

LDA 

TIME 

299A 

20 13 34 

JSR 

NUMOUT 

291E 

18 

CLC 


299D 

AO 00 

LDY 

#0 

291F 

69 32 

ADC 

#50 

299F 

AD 54 03 

LDA 

TIME 

2921 

8D 54 03 

STA 

TIME 

29A2 

C9 19 

CMP 

#25 

2924 

A9 01 

LDA 

#1 

29A4 

DO 02 

BNE 

NFL 

2926 

8D 63 03 

STA 

BONFLAG 

29A6 

AO FI 

LDY 

#241 

2929 

4C 6E 29 NOBONUS 

JMP 

SCROUT 

29A8 

AE 56 03 NFL 

LDX 

COMPUTER 

; 




29AB 

DO 05 

BNE 

C064 

; subtract score 



29AD 

8C 19 FF 

STY 

65305 





29B0 

DO 03 

BNE 

N02 

292C 

SUBSCORE 

= 

* 

29B2 

8C 20 DO C064 

STY 

53280 

292C 

8D 03 28 

STA 

TEMP 

29B5 

A912 N02 

LDA 

#"{RVS}" 

$FFD2 

292F 

AD 52 03 

LDA 

SCORE 

29B7 

20 D2 FF 

JSR 

2932 

38 

SEC 


29BA 

A2 12 

LDX 

#18 

2933 

ED 03 28 

SBC 

TEMP 

29BC 

AO 02 

LDY 

#2 

2936 

8D 52 03 

STA 

SCORE 

29BE 

18 

CLC 


2939 

AD 53 03 

LDA 

SCORE+1 

29BF 

20 FO FF 

JSR 

$FFF0 

293C 

E9 00 

SBC 

#0 

29C2 

AD 46 03 

LDA 

GOODCARD 

293E 

8D 53 03 

STA 

SCORE+1 

29C5 

OA 

ASL 


2941 

BO 08 

BCS 

NZERO 

29C6 

OA 

ASL 


2943 

A9 00 

LDA 

#0 

29C7 

18 

CLC 


2945 

8D 52 03 

STA 

SCORE 

29C8 

69 49 

ADC 

#73 

2948 

8D 53 03 

STA 

SCORE 4-1 

29CA 

A8 

TAY 


294B 

40 6E 29 NZERO 

JMP 

SCROUT 

29CB 

20 D2 FF 

JSR 

$FFD2 





29CE 

C8 

INY 


; add bullets 



29CF 

98 

TYA 






29D0 

8D 04 28 

STA 

TEMP2 

294E 

ADDBULL 

= 

* 

29D3 

20 D2 FF 

JSR 

$FFD2 

294E 

18 

CLC 


29D6 

A9D9 

LDA 

#<MESS3 

294F 

6D 58 03 

ADC 

BULLETS 

29D8 

AO 37 

LDY 

#>MESS3 
















n 

Chapter 3 







n 









n 

29DA 

20 08 34 

JSR 

STROUT 





(—T 

2900 

AC 04 28 

LDY 

TEMP2 

2A5F 

LOOK 

= 

* 

! ) 

29E0 

C8 

INY 


2A5F 

AD4A03 

LDA 

SURPRISE 


29E1 

98 

m 


2A62 

D0 3A 

BNE 

OPEN 

f-1 

29E2 

20 D2FF 

JSR 

$FFD2 

2A64 

CE 4E 03 

DEC 

WINDOWVH 

! 1 

29E5 

C8 

INY 


2A67 

FO 01 

BEQ 

CONTIN 


29E6 

CO 60 

CPY 

#96 

2A69 

60 GOHOME 

RTS 



29E8 

DO 04 

BNE 

ROT 

2A6A 

20 EC 2A CONTIN 

JSR 

WINDON 

n 

29EA 

38 

SEC 


2A6D 

20 FB 2F 

JSR 

RAND 

29EB 

E9 3E 

SBC 

#62 

2A70 

29 07 

AND 

#7 


29EO 

A8 

TAY 


2A72 

18 

CLC 



29EE 

98 ROT 

m 


2A73 

69 07 

ADC 

#7 


29EF 

20 D2 FF 

JSR 

$FFD2 

2A75 

8D 4C 03 

STA 

OCOUNT 


29F2 

A9 92 

LDA 

#"{OFF}" 

2A78 

A9 03 

LDA 

#3 


29F4 

20 D2 FF 

JSR 

$FFD2 

2A7A 

8D 4B 03 

STA 

HCOUNT 


29F7 

68 

PLA 


2A7D 

EE 4A 03 

INC 

SURPRISE 


29F8 

A8 

TAY 


2A80 

A2 04 

LDX 

#4 


29F9 

68 

PLA 


2A82 

20 FB 2F ZR 

JSR 

RAND 


29FA 

AA 

TAX 


2A85 

29 03 

AND 

#3 


29FB 

60 

RTS 


2A87 

C9 03 

CMP 

#3 


29FC 

AD 5C 03 HOUT 

LDA 

HIGH 

2A89 

FO F7 

BEQ 

ZR 


29FF 

38 

SEC 


2A8B 

A8 

TAY 



2A00 

ED 52 03 

SBC 

SCORE 

2A8C 

B9 E9 2A 

LDA 

HTAB.Y 


2A03 

8D 03 28 

STA 

TEMP 

2A8F 

A8 

TAY 



2A06 

AD 5D 03 

LDA 

HIGH+1 

2A90 

8C 4F 03 OY 

STY 

HORIZ 


2A09 

ED 53 03 

SBC 

SCORE+1 

2A93 

18 

CLC 



2A0C 

0D 03 28 

ORA 

TEMP 

2A94 

20 FO FF 

JSR 

$FFFO 


2A0F 

BOOB 

BCS 

LEA/E 

2A97 

A9 38 

LDA 

#<OWINDOW 


2A11 

AO 01 

LDY 

#1 

2A99 

AO 37 

LDY 

#>OWINDOW 


2A13 

B9 52 03 TR 

LDA 

SCORE,Y 

2A9B 

20 08 34 

JSR 

STROUT 


2A16 

99 5C03 

STA 

HIGH.Y 

2A9E 

AD 4C 03 OPEN 

LDA 

OCOUNT 


2A19 




2AA1 

FO 29 

BEQ 

NXT 


88 

DEY 


2AA3 

CE 4C 03 

DEC 

OCOUNT 


2A1A 

10 F7 

BPL 

TR 

2AA6 

DO Cl 

BNE 

GOHOME 


2A1C 

A2 0E LEA/E 

LDX 

#14 

2AA8 

A2 04 

LDX 

#4 


2A1E 

AO 00 

LDY 

#0 

2AAA 

AC4F 03 

LDY 

HORIZ 


2A20 

18 

CLC 


2AAD 

18 

CLC 



2A21 

20 FO FF 

JSR 

$FFFO 

2AAE 

20 FO FF 

JSR 

$FFFO 


2A24 

AE5C03 

LDX 

HIGH 

2AB1 

A9Q0 

LDA 

#0 


2A27 

AD5D03 

LDA 

HIGH+1 

2AB3 

8D 59 03 

STA 

FLAG 


2A2A 

4C 13 34 

JMP 

NUMOUT 

2AB6 

A2 5A 

LDX 

#<GOODGUY 


; 




2AB8 

AO 37 

LDY 

#>GOODGUY 


; update bullets 



2ABA 

20 FB 2F 

JSR 

RAND 


; 




2ABD 

10 09 

BPL 

GOODG 


2A2D 

BULLOUT 

= 

* 

2ABF 

A9 01 

LDA 

#1 


2A2D 

AD5A03 

LDA 

SCREEN 

2AC1 

8D 59 03 

STA 

FLAG 


2A30 

18 

CLC 


2AC4 

A2 76 

LDX 

#<BADGUY 


2A31 

69 C4 

ADC 

#<964 

2AC6 

AO 37 

LDY 

#>BADGUY 


2A33 

85 04 

STA 

FREEO 

2AC8 

8A GOODG 

TXA 



2A35 

AD5B03 

LDA 

SCREEN+1 

2AC9 

20 08 34 

JSR 

STROUT 


2A38 

69 03 

ADC 

#>964 

2ACC 

CE 4B 03 NXT 

DEC 

HCOUNT 


2A3A 

85 05 

STA 

FREEO+1 

2ACF 

DO 98 

BNE 

GOHOME 


2A3C 

AE 58 03 

LDX 

BULLETS 

2AD1 

A9 00 

LDA 

#0 


2A3F 

E8 

INX 


2AD3 

8D 4A 03 

STA 

SURPRISE 


2A40 

AO 00 

LDY 

#0 

2AD6 

A2 04 

LDX 

#4 


2A42 

A9 BC BULLOOP 

LDA 

#188 

2AD8 

AC4F 03 

LDY 

HORIZ 

i—> 

2A44 

CA 

DEX 


2ADB 

20 A7 35 

JSR 

DR/WINDOW 

r ) 

2A45 

FO 02 

BEQ 

PN 

2ADE 

AD 59 03 

LDA 

FLAG 


2A47 

10 02 

BPL 

PUTIT 

2AE1 

FO 05 

BEQ 

RER 

n 

2A49 

A9 20 PN 

LDA 

#32 

2AE3 

A9 0A 

LDA 

#10 

2A4B 

91 04 PUTIT 

STA 

(FREEO),Y 

2AE5 

20 5C 29 

JSR 

SUBBULL 


2A4D 

20 30 2D 

JSR 

ADDCOLOR 

2AE8 

60 RER 

RTS 



2A50 

AD 56 03 

LDA 

COMPUTER 

2AE9 

OD 17 21 HTAB 

.BYT 

13,23,33 

n 

2A53 

DO 02 

BNE 

PLS3 

2AEC 

20 FB 2F WINDON 

JSR 

RAND 

2A55 

A9 71 

LDA 

#113 

2AEF 

29 IF 

AND 

#31 


2A57 

91 02 PLS3 

STA 

(TEMPO),Y 

2AF1 

09 20 

ORA 

#32 


2A59 

C8 

INY 


2AF3 

8D 4E 03 

STA 

WINDOWH 

f ; 

2A5A 

CO 23 

CPY 

#35 

2AF6 

60 

RTS 



2A5C 

DO E4 

BNE 

BULLOOP 

; 





2A5E 

60 

RTS 


; move the mouse 



( 1 

; who’s that looking In the window 


2AF7 

MOUSE 

= 

* 



I—> 
t ) 


150 




The Source Code 


2AF7 

AD5E03 

LDA 

GLASSCOUNT 

2B8A 

85 04 

STA 

FREEO 

2AFA 

C9 0B 

CMP 

#MB+1 

2B8C 

A5 05 

LDA 

FREEO+1 

2AFC 

F0 17 

BEQ 

MOVING 

2B8E 

E9 00 

SBC 

#0 

2AFE 

C9 0A 

CMP 

#MB 

2B90 

85 05 

STA 

FREEO+1 

2B00 

DO 12 

BNE 

NOMOU 

2B92 

A2 00 

LDX 

#0 

2B02 

A9 00 

LDA 

#0 

2B94 

20 BO 2C 

JSR 

PUT2 

2B04 

8D 5F 03 

STA 

MOUSEPOS 

2B97 

A9 0A 

LDA 

#10 

2B07 

A9 01 

LDA 

#1 

2B99 

20 F4 28 

JSR 

ADDSCORE 

2B09 

80 60 03 

STA 

MOUSEDIR 

2B9C 

AD5E03 

LDA 

GLASSCOUNT 

2B0C 

EE 5E03 

INC 

GLASSCOUNT 

2B9F 

C9 0A 

CMP 

#MB 

2B0F 

A9 65 

LDA 

#101 

2BA1 

BO 03 

BCS 

NORAISE 

2B11 

8D 62 03 

STA 

MOUSEH 

2BA3 

EE 5E03 

INC 

GLASSCOUNT 

2B14 

60 NOMOU 

RTS 


2BA6 

60 NORAISE 

RTS 


2B15 

AD 5A 03 MOVING 

LDA 

SCREEN 

2BA7 

C9 84 NOTMUG 

CMP 

#132 

2B18 

18 

CLC 


2BA9 

FO 08 

BEQ 

NOGO 

2B19 

69 D8 

ADC 

#<728 

2BAB 

C9 89 

CMP 

#137 

2B1B 

85 04 

STA 

FREEO 

2BAD 

90 05 

BCC 

GO 

2B1D 

AD 5B 03 

LDA 

SCREEN+1 

2BAF 

C9 8D 

CMP 

#141 

2B20 

69 02 

ADC 

#>728 

2BB1 

BO 01 

BCS 

GO 

2B22 

85 05 

STA 

FREEO+1 

2BB3 

60 NOGO 

RTS 


2B24 

AC5F03 

LDY 

MOUSEPOS 

2BB4 

C9A0 GO 

CMP 

#160 

2B27 

A9 20 

LDA 

#32 

2BB6 

F0 4C 

BEQ 

FLO 

2B29 

91 04 

STA 

(FREEO),Y 

2BB8 

C9A2 

CMP 

#162 

2B2B 

C8 

INY 


2BBA 

BO 48 

BCS 

FLO 

2B2C 

91 04 

STA 

(FREEO),Y 

2BBC 

C9 8D 

CMP 

#141 

2B2E 

AD 5F 03 

LDA 

MOUSEPOS 

2BBE 

90 44 

BCC 

FLO 

2B31 

18 

CLC 


2BC0 

AD 47 03 

LDA 

POSITION 

2B32 

6D60 03 

ADC 

MOUSEDIR 

2BC3 

38 

SEC 


2B35 

8D 5F 03 

STA 

MOUSEPOS 

2BC4 

E9 13 

SBC 

#19 

2B38 

FO 29 

BEQ 

BYEMOUSE 

2BC6 

AA 

TAX 


2B3A 

C9 0E 

CMP 

#14 

2BC7 

BDD2 2C 

LDA 

NEWT.X 

2B3C 

FO 25 

BEQ 

BYEMOUSE 

2BCA 

18 

CLC 


2B3E 

A200 

LDX 

#0 

2BCB 

6D 50 03 

ADC 

INDEX 

2B40 

A8 

TAY 


2BCE 

C9 05 

CMP 

#5 

2B41 

AD 60 03 

LDA 

MOUSEDIR 

2BD0 

90 03 

BCC 

ORAY 

2B44 

10 02 

BPL 

RIGHT 

2BD2 

38 

SEC 


2B46 

A2 02 

LDX 

#2 

2BD3 

E9 05 

SBC 

#5 

2B48 

BD69 2B RIGHT 

LDA 

MOUSHP.X 

2BD5 

AA ORAY 

TAX 


2B4B 

91 04 

STA 

(FREEO),Y 

2BD6 

BD3C03 

LDA 

CARDS2.X 

2B4D 

C8 

INY 


2BD9 

29 7F 

AND 

#127 

2B4E 

BD6A2B 

LDA 

M0USHP+1.X 

2BDB 

4A 

LSR 


2B51 

91 04 

STA 

(FREEO),Y 

2BDC 

4A 

LSR 


2B53 

20 30 2D 

JSR 

ADDCOLOR 

2BDD 

CD 46 03 

CMP 

GOODCARD 

2B56 

AD 56 03 

LDA 

COMPUTER 

2BE0 

DO OA 

BNE 

RESET 

2B59 

DO 02 

BNE 

PS5 

2BE2 

CE 46 03 

DEC 

GOODCARD 

2B5B 

A9 71 

LDA 

#113 

2BE5 

DO 10 

BNE 

NOR 

2B5D 

91 02 PS5 

STA 

(TEMPO),Y 

2BE7 

A9 23 

LDA 

#35 

2B5F 

88 

DEY 


2BE9 

20 4E29 

JSR 

ADDBULL 

2880 

91 02 

STA 

(TEMPO),Y 

2BEC 

A9 05 RESET 

LDA 

#5 

2B62 

60 

RTS 


2BEE 

8D46 03 

STA 

GOODCARD 

2B63 

A9 00 BYEMOUSE 

LDA 

#0 

2BF1 

20 70 38 

JSR 

FIXCARDS 

2B65 

8D 5E 03 

STA 

GLASSCOUNT 

2BF4 

4C 75 2C 

JMP 

DUN 

2858 

60 

RTS 


2BF7 

A9 OA NOR 

LDA 

#10 

2B69 

IB 1C ID MOUSHP 

.BYT 

27,28,29,30 

2BF9 

20 F4 28 

JSR 

ADDSCORE 





2BFC 

A9 1C 

LDA 

#28 

; hit something 



2BFE 

9D 3C03 

STA 

CARDS2.X 





2C01 

4C 75 2C 

JMP 

DUN 

2B6D 

HIT 

= 

* 

2C04 

C9 66 FLO 

CMP 

#102 

2B6D 

AC 47 03 

LDY 

POSITION 

2C06 

DO 08 

BNE 

NOTBACK 

2B70 

B1 04 

LDA 

(FREEO),Y 

2C08 

A9 0A 

LDA 

#10 

2B72 

C9 85 

CMP 

#133 

2C0A 

20 2C29 

JSR 

SUBSCORE 

2B74 

90 31 

BCC 

NOTMUG 

2C0D 

4C 75 2C 

JMP 

DUN 

2B76 

C9 89 

CMP 

#137 

2C10 

C9 A2 NOTBACK 

CMP 

#162 

2B78 

BO 2D 

BCS 

NOTMUG 

2C12 

90 1A 

BCC 

NTG 

2B7A 

38 

SEC 


2C14 

C9B4 

CMP 

#180 

2B7B 

E9 85 

SBC 

#133 

2C16 

BO 16 

BCS 

NTG 

2B7D 

AA 

TAX 


2C18 

C9 AB 

CMP 

#171 

2B7E 

BD FB 2C 

LDA 

SUB,X 

2C1A 

BO 08 

BCS 

BADG 

2B81 

8D 03 28 

STA 

TEMP 

2C1C 

A9 64 

LDA 

#100 

2B84 

A5 04 

LDA 

FREEO 

2C1E 

20 2C 29 

JSR 

SUBSCORE 

2B86 

38 

SEC 


2C21 

4C 75 2C 

JMP 

DUN 

2B87 

ED 03 28 

SBC 

TEMP 

2C24 

A9 00 BADG 

LDA 

#0 


151 




Chapter 3 


2C26 

8D 59 03 

STA 

FLAG 

2CC8 

91 04 

STA 

(FREEO),Y 

2C29 

A9 19 

LDA 

#25 

2CCA 

E8 

INX 


2C2B 

20 F4 28 

JSR 

ADDSCORE 

2CCB 

C8 

INY 


2C2E 

C9 IB NTG 

CMP 

#27 

2CCC 

BDDB2C 

LDA 

TABLE,X 

2C30 

90 26 

BCC 

NMH 

2CCF 

91 04 

STA 

(FREEO),Y 

2C32 

C9 IF 

CMP 

#31 

2CD1 

60 

RTS 


2C34 

BO 22 

BCS 

NMH 

2CD2 

00 00 00 NEWT 

.BYT 

0,0,0,1,1,1,2,2,2 

2C36 

AD 60 03 

LDA 

MOUSEDIR 

2CDB 

89 8A 8B TABLE 

.BYT 

137,138,139,140 

2C39 

49 FF 

EOR 

#255 

2CDF 

8D 8E 8F 

.BYT 

141,142,143,144,14 

2C3B 

18 

CLC 





5,146,147,148,149, 

2C3C 

69 01 

ADC 

#1 




150 

2C3E 

8D60 03 

STA 

MOUSEDIR 

2CE9 

97 98 99 

.BYT 

151,152,153,154,15 

2C41 

AD 62 03 

LDA 

MOUSEH 




5,156,157,158,159, 

2C44 

38 

SEC 





161 

2C45 

E9 14 

SBC 

#20 

2CF3 

66 66 66 

.BYT 

102,102,102,102,32, 

2C47 

30 03 

BMI 

NOG 




32,32,32 

2C49 

8D 62 03 

STA 

MOUSEH 

2CFB 

00 01 28 SUB 

.BYT 

0,1,40,41 

2C4C 

A9 65 NOG 

LDA 

#101 

2CFF 

AE 16 28 FIX 

LDX 

NUMHIT 

2C4E 

38 

SEC 


2D02 

FO 23 

BED 

FG 

2C4F 

ED 62 03 

SBC 

MOUSEH 

2D04 

CA 

DEX 


2C52 

20 F4 28 

JSR 

ADDSCORE 

2D05 

BD C3 3B CLP 

LDA 

STACK1.X 

2C55 

4C 75 2C 

JMP 

DUN 

2D08 

85 04 

STA 

FREEO 

2C58 

C9 B6 NMH 

CMP 

#182 

2D0A 

BD D7 3B 

LDA 

STACK2.X 

2C5A 

DO 19 

BNE 

DUN 

2D0D 

85 05 

STA 

FREEO+1 

2C5C 

A9 00 

LDA 

#0 

2D0F 

BC EB 3B 

LDY 

STACK3.X 

2C5E 

8D 65 03 

STA 

NOTENUM 

2D12 

BD FF 3B 

LDA 

STACK4.X 

2C61 

A9 01 

LDA 

#1 

2D15 

91 04 

STA 

(FREEO),Y 

2C63 

8D 66 03 

STA 

COUNTER 

2D17 

20 30 2D 

JSR 

ADDCOLOR 

2C66 

EE 64 03 

INC 

SONGNUM 

2D1A 

BD 13 3C 

LDA 

STACK5.X 

2C69 

AD 64 03 

LDA 

SONGNUM 

2D1D 

91 02 

STA 

(TEMPO),Y 

2C6C 

C9 03 

CMP 

#3 

2D1F 

CA 

DEX 


2C6E 

90 05 

BCC 

DUN 

2D20 

10 E3 

BPL 

CLP 

2C70 

A9 00 

LDA 

#0 

2D22 

A9 00 

LDA 

#0 

2C72 

8D 64 03 

STA 

SONGNUM 

2D24 

8D 16 28 

STA 

NUMHIT 

2C75 

AE 16 28 DUN 

LDX 

NUMHIT 

2D27 

AD 11 FF FG 

LDA 

65297 

2C78 

EE 16 28 

INC 

NUMHIT 

2D2A 

29 IF 

AND 

#31 

2C7B 

A5 04 

LDA 

FREEO 

2D2C 

8D 11 FF 

STA 

65297 

2C7D 

9D C3 3B 

STA 

STACK1.X 

2D2F 

60 

RTS 


2C80 

A5 05 

LDA 

FREEO+1 

2D30 

A5 04 ADDCOLOR 

LDA 

FREEO 

2C82 

9D D7 3B 

STA 

STACK2.X 

2D32 

18 

CLC 


2C85 

AD 47 03 

LDA 

POSITION 

2D33 

6D 14 28 

ADC 

COLDIF 

2C88 

9D EB 3B 

STA 

STACK3.X 

2D36 

85 02 

STA 

TEMPO 

2C8B 

B1 04 

LDA 

(FREEO).Y 

2D38 

A5 05 

LDA 

FREEO+1 

2C8D 

C9 1B 

CMP 

#27 

2D3A 

6D 15 28 

ADC 

COLDIF+1 

2C8F 

90 06 

BCC 

DT 

2D3D 

85 03 

STA 

TEMPO+1 

2C91 

C9 IF 

CMP 

#31 

2D3F 

60 

RTS 


2C93 

BO 02 

BCS 

DT 

• 




2C95 

A9 20 

LDA 

#32 

; joystick routine 



2C97 

9D FF 3B DT 

STA 

STACK4.X 

2D40 




2C9A 

20 30 2D 

JSR 

ADDCOLOR 

JOYSTICK 

= 

* 

2C9D 

B1 02 

LDA 

(TEMPO),Y 

2D40 

20 4C 2E 

JSR 

GETJOY 

2C9F 

9D 13 3C 

STA 

STACK5.X 

2D43 

4A 

LSR 


2CA2 

AD 56 03 

LDA 

COMPUTER 

2D44 

BO OD 

BCS 

NOTUP 

2CA5 

DO 02 

BNE 

PS4 

2D46 

AE 11 28 

LDX 

LENGTH 

2CA7 

A9 71 

. LDA 

#113 

2D49 

EO 10 

CPX 

#16 

2CA9 

91 02 PS4 

STA 

(TEMPO),Y 

2D4B 

FO 06 

BEQ 

NOTUP 

2CAB 

A9 84 

LDA 

#132 

2D4D 

EE 11 28 

INC 

LENGTH 

2CAD 

91 04 

STA 

(FREEO),Y 

2D50 

20 18 2E 

JSR 

DGUN 

2CAF 

60 

RTS 


2D53 

4A NOTUP 

LSR 


2CB0 

AC 47 03 PUT2 

LDY 

POSITION 

2D54 

BO OD 

BCS 

NOTDOWN 

2CB3 

BD DB 2C PUT3 

LDA 

TABLE,X 

2D56 

AE 11 28 

LDX 

LENGTH 

2CB6 

91 04 

STA 

(FREEO),Y 

2D59 

EO 02 

CPX 

#2 

2CB8 

C8 

INY 


2D5B 

FO 06 

BEQ 

NOTDOWN 

2CB9 

E8 

INX 


2D5D 

CE 11 28 

DEC 

LENGTH 

2CBA 

BD DB2C 

LDA 

TABLE,X 

2D60 

20 18 2E 

JSR 

DGUN 

2CBD 

91 04 

STA 

(FREEO),Y 

2063 

4A NOTDOWN 

LSR 


2CBF 

E8 

INX 


2D64 

BO 14 

BCS 

NOTLEFT 

2CC0 

98 

m 


2D66 

48 

PHA 


2CC1 

18 

CLC 


2D67 

AD 47 03 

LDA 

POSITION 

2CC2 

69 27 

ADC 

#39 

2D6A 

FO OD 

BEQ 

N0G1 

2CC4 

A8 

TAY 


2D6C 

A2 00 

LDX 

#0 

2CC5 

BD DB 2C 

LDA 

TABLE,X 

2D6E 

20 DB 2D 

JSR 

PUT 




The Source Code 


2D71 

CE 47 03 

DEC 

POSITION 

2E03 

BD 10 2E 

LDA 

GUN.X 

2D74 

A2 04 

LDX 

#4 

2E06 

91 04 

STA 

(FREEO),Y 

2D76 

20 DB 2D 

JSR 

PUT 

2E08 

E8 

INX 

2D79 

68 N0G1 

PLA 


2E09 

C8 

INY 


2D7A 

4A NOTLEFT 

LSR 


2E0A 

BD 10 2E 

LDA 

GUN.X 

2D7B 

BO 16 

BCS 

NOTRIGHT 

2E0D 

91 04 

STA 

(FREEO),Y 

2D7D 

48 

PHA 


2E0F 

60 

RTS 

2D7E 

AD 47 03 

LDA 

POSITION 

2E10 

AO AO AO GUN 

.BYT 

160,160,160,160,12 

2D81 

C9 IF 

CMP 

#31 




8,129,130,131 

2D83 

F0 0D 

BEQ 

N0G2 

2E18 

48 DGUN 

PHA 

2D85 

A2 00 

LDX 

#0 

2E19 

A9 FF 

LDA 

#255 

2D87 

20 DB 2D 

JSR 

PUT 

2E1B 

AO FF 

LDY 

#255 

2D8A 

EE 47 03 

INC 

POSITION 

2E1D 

99 FF 23 DGL00P1 

STA 

9215,Y 

2D8D 

A2 04 

LDX 

#4 

2E20 

C8 

INY 

2D8F 

20 DB 2D 

JSR 

PUT 

2E21 

CO 10 

CPY 

#16 

2D92 

68 N0G2 

PLA 


2E23 

FO 09 

BEQ 

HOME 

2D93 

4A NOTRIGHT 

LSR 


2E25 

CC11 28 

CPY 

LENGTH 

2D94 

B0 3F 

BCS 

NOTFIRE 

2E28 

DO F3 

BNE 

DGL00P1 

2D96 

AD 17 28 

LDA 

FIRED 

2E2A 

A9 96 

LDA 

#150 

2D99 

DO 34 

BNE 

FORGT 

2E2C 

DO EF 

BNE 

DGL00P1 

2D9B 

AD 58 03 

LDA 

BULLETS 

2E2E 

20 6E 2E HOME 

JSR 

GUAGE 

2D9E 

FO 2F 

BEQ 

FORGT 

2E31 

68 

PLA 


2DA0 

A9 01 

LDA 

#1 

2E32 

60 

RTS 


2DA2 

20 5C 29 

JSR 

SUBBULL 

2E33 

FIRESOUND 

= 

* 

2DA5 

20 33 2E 

JSR 

FIRESOUND 

2E33 

AD 56 03 

LDA 

COMPUTER 

2DA8 

AD 5A 03 

LDA 

SCREEN 

2E36 

DO 09 

BNE 

CM64 

2DAB 

18 

CLC 


2E38 

AD 11 FF PLUS4 

LDA 

65297 

2DAC 

69 57 

ADC 

#87 

2E3B 

09 40 

ORA 

#64 

2DAE 

85 04 

STA 

FREEO 

2E3D 

8D 11 FF 

STA 

65297 

2DB0 

AD 5B 03 

LDA 

SCREEN+1 

2E40 

60 

RTS 


2DB3 

69 00 

ADC 

#0 

2E41 

A9 80 CM64 

LDA 

#128 

2DB5 

85 05 

STA 

FREEO+1 

2E43 

8D04 D4 

STA 

54276 

2DB7 

AE 11 28 

LDX 

LENGTH 

2E46 

A9 81 

LDA 

#129 

2DBA 

FO 10 

BEQ 

NADD 

2E48 

8D04 D4 

STA 

54276 

2DBC 

A5 04 ADDLOOP 

LDA 

FREEO 

2E4B 

60 

RTS 


2DBE 

18 

CLC 






2DBF 

69 28 

ADC 

#40 

; get joystick value 



2DC1 

85 04 

STA 

FREEO 

; 




2DC3 

A5 05 

LDA 

FREEO+1 

2E4C 

GETJOY 

= 

* 

2DC5 

69 00 

ADC 

#0 

2E4C 

AD 56 03 

LDA 

COMPUTER 

2DC7 

85 05 

STA 

FREEO+1 

2E4F 

FO 04 

BEQ 

L0NG2 

2DC9 

CA 

DEX 


2E51 

AD 00 DC 

LDA 

$DCOO 

2DGA 

DO FO 

BNE 

ADDLOOP 

2E54 

60 

RTS 


2DCC 

20 6D 2B NADD 

JSR 

HIT 

2E55 

A9 FD L0NG2 

LDA 

#$FD 

2DCF 

A9 01 FORGT 

LDA 

#1 

2E57 

8D08 FF 

STA 

$FF08 

2DD1 

8D 17 28 

STA 

FIRED 

2E5A 

EA 

NOP 


2DD4 

60 

RTS 


2E5B 

EA 

NOP 


2DD5 

A9 00 NOTFIRE 

LDA 

#0 

2E5C 

AD 08 FF 

LDA 

$FF08 

2DD7 

8D 17 28 

STA 

FIRED 

2E5F 

8D 03 28 

STA 

TEMP 

2DDA 

60 

RTS 


2E62 

29 80 

AND 

#128 

2DDB 

AD 5A 03 PUT 

LDA 

SCREEN 

2E64 

08 

PHP 


2DDE 

18 

CLC 


2E65 

AD 03 28 

LDA 

TEMP 

2DDF 

69 FF 

ADC 

#<767 

2E68 

28 

PLP 


2DE1 

85 04 

STA 

FREEO 

2E69 

DO 02 

BNE 

N0J0Y2 

2DE3 

AD 5B 03 

LDA 

SCREEN+1 

2E6B 

29 EF 

AND 

#239 

2DE6 

69 02 

ADC 

#>767 

2E6D 

60 N0J0Y2 

RTS 


2DE8 

85 05 

STA 

FREEO+1 

2E6E 

AD 5A 03 GUAGE 

LDA 

SCREEN 

2DEA 

AC 47 03 

LDY 

POSITION 

2E71 

18 

CLC 


2DE0 

BD 10 2E 

LDA 

GUN.X 

2E72 

69 77 

ADC 

#119 

2DF0 

91 04 

STA 

(FREEO),Y 

2E74 

85 02 

STA 

TEMPO 

2DF2 

E8 

INX 

2E76 

AD5B03 

LDA 

SCREEN+1 

2DF3 

98 

m 


2E79 

69 00 

ADC 

#0 

2DF4 

18 

CLC 


2E7B 

85 03 

STA 

TEMPO+1 

2DF5 

69 28 

ADC 

#40 

2E7D 

AO 00 

LDY 

#0 

2DF7 

A8 

TAY 


2E7F 

A2 00 

LDX 

#0 

2DF8 

BD 10 2E 

LDA 

GUN.X 

2E81 

A9 20 GL 

LDA 

#32 

2DFB 

91 04 

STA 

(FREEO),Y 

2E83 

EC 11 28 

CPX 

LENGTH 

2DFD 

E8 

INX 

2E86 

DO 02 

BNE 

NOTG 

2DFE 

98 

TVA 


2E88 

A9 IF 

LDA 

#31 

2DFF 

18 

CLC 


2E8A 

91 02 NOTG 

STA 

(TEMPO),Y 

2E00 

69 28 

ADC 

#40 

2E8C 

A5 02 

LDA 

TEMPO 

2E02 

A8 

TAY 


2E8E 

18 

CLC 



153 





Chapter 3 


2E8F 

6D 14 28 

ADC 

COLDIF 

2F35 

8D 61 03 

STA 

MOUSEL 

2E92 

85 FC 

STA 

NEWO 

2F38 

8D 62 03 

STA 

MOUSEH 

2E94 

A5 03 

LDA 

TEMPO+1 

2F3B 

A9C8 

LDA 

#200 

2E96 

6D 15 28 

ADC 

COLDIF+1 

2F3D 

8D 54 03 

STA 

TIME 

2E99 

85 FD 

STA 

NEWO+1 

2F40 

A9 23 

LDA 

#35 

2E9B 

AD 56 03 

LDA 

COMPUTER 

2F42 

8D58 03 

STA 

BULLETS 

2E9E 

DO 02 

BNE 

PLS4 

2F45 

20 EC2A 

JSR 

WINDON 

2EA0 

A9 71 

LDA 

#113 

2F48 

20 6E 29 

JSR 

SCROUT 

2EA2 

91 FC PLS4 

STA 

(NEWO),Y 

2F4B 

60 

RTS 


2EA4 

20 E9 30 

JSR 

ADD40 





2EA7 

E8 

INX 


; initialize characters 



2EA8 

EO 11 

CPX 

#17 





2EAA 

D0D5 

BNE 

GL 

2F4C 

CHARINIT 

= 

* 

2EAC 

60 

RTS 


2F4C 

AD 56 03 

LDA 

COMPUTER 

! 




2F4F 

DO 03 

BNE 

DOCUST 

; initialization 



2F51 

4C D7 2F 

JMP 

CUST16 

| 




2F54 

78 DOCUST 

SEI 


2EAD 

INIT 

= 

* 

2F55 

A9 33 

LDA 

#51 

2EAD 

AD 56 03 

LDA 

COMPUTER 

2F57 

85 01 

STA 

1 

2EB0 

FO IE 

BEQ 

NOCLSID 

2F59 

20 76 2F 

JSR 

TRANSFER 

2EB2 

A9 00 

LDA 

#0 

2F5C 

A9 37 

LDA 

#55 

2EB4 

AO 17 

LDY 

#23 

2F5E 

85 01 

STA 

1 

2EB6 

99 00 D4 CLSID 

STA 

54272,Y 

2F60 

58 

CLI 


2EB9 

88 

DEY 


2F61 

A9 18 

LDA 

#24 

2EBA 

10 FA 

BPL 

CLSID 

2F63 

8D18 DO 

STA 

53272 

2EBC 

A9 OF 

LDA 

#15 

2F66 

A9 D8 

LDA 

#216 

2EBE 

8D 18 D4 

STA 

54296 

2F68 

8D 16 DO 

STA 

53270 

2EC1 

A9 19 

LDA 

#25 

2F6B 

A9 OF 

LDA 

#15 

2EC3 

8D 13 D4 

STA 

54291 

2F6D 

8D 22 DO 

STA 

53282 

2EC6 

A9 15 

LDA 

#21 

2F70 

A9 02 

LDA 

#2 

2EC8 

8D 05 D4 

STA 

54277 

2F72 

8D23 DO 

STA 

53283 

2ECB 

A9 28 

LDA 

#40 

2F75 

60 

RTS 


2ECD 

8D 01 D4 

STA 

54273 

2F76 

A2 07 TRANSFER 

LDX 

#7 

2ED0 

NOCLSID 

= 

* 

2F78 

AO 00 

LDY 

#0 

2ED0 

A9 00 

LDA 

#0 

2F7A 

A9 00 

LDA 

#<53248 

2ED2 

8D 08 28 

STA 

SYNC1 

2F7C 

85 02 

STA 

TEMPO 

2ED5 

8D 16 28 

STA 

NUMHIT 

2F7E 

85 04 

STA 

FREEO 

2ED8 

8D 5E03 

STA 

GLASSCOUNT 

2F80 

A9 DO 

LDA 

#>53248 

2EDB 

A9 7D 

LDA 

#125 

2F82 

85 03 

STA 

TEMPO+1 

2EDD 

8D OB 28 

STA 

GLASSL 

2F84 

A9 20 

LDA 

#>8192 

2EE0 

8D OC 28 

STA 

GLASSH 

2F86 

85 05 

STA 

FREEO+1 

2EE3 

A9 05 

LDA 

#5 

2F88 

B1 02 CHLQ0P1 

LDA 

(TEMPO),Y 

2EE5 

8D OA 28 

STA 

FALLH 

2F8A 

8E 03 28 

STX 

TEMP 

2EE8 

8D 09 28 

STA 

FALLL 

2F8D 

EO 04 

CPX 

#4 

2EEB 

8D 46 03 

STA 

GOODCARD 

2F8F 

BO 07 

BCS 

STR 

2EEE 

8D 66 03 

STA 

COUNTER 

2F91 

AE 56 03 

LDX 

COMPUTER 

2EF1 

A9 41 

LDA 

#65 

2F94 

DO 02 

BNE 

STR 

2EF3 

8D OD 28 

STA 

PIANOL 

2F96 

49 FF 

EOR 

#255 

2EF6 

8D OE 28 

STA 

PIANOH 

2F98 

AE 03 28 STR 

LDX 

TEMP 

2EF9 

A9 OF 

LDA 

#15 

2F9B 

91 04 

STA 

(FREEO),Y 

2EFB 

8D OF 28 

STA 

JOYL 

2F9D 

88 

DEY 


2EFE 

8D 10 28 

STA 

JOYH 

2F9E 

DO E8 

BNE 

CHL00P1 

2F01 

A9 FA 

LDA 

#250 

2FA0 

E6 03 

INC 

TEMPO+1 

2F03 

8D 18 28 

STA 

CARDSL 

2FA2 

E6 05 

INC 

FREEO+1 

2F06 

8D 19 28 

STA 

GARDSH 

2FA4 

EO 04 

CPX 

#4 

2F09 

A9 0A 

LDA 

#10 

2FA6 

DO 09 

BNE 

STR2 

2F0B 

8D 47 03 

STA 

POSITION 

2FA8 

AD 56 03 

LDA 

COMPUTER 

2F0E 

8D 11 28 

STA 

LENGTH 

2FAB 

DO 04 

BNE 

STR2 

2F11 

A2 04 

LDX 

#4 

2FAD 

A9 DO 

LDA 

#>53248 

2F13 

20 DB 2D 

JSR 

PUT 

2FAF 

85 03 

STA 

TEMPO+1 

2F16 

A9FF 

LDA 

#255 

2FB1 

CA STR2 

DEX 


2F18 

8D 50 03 

STA 

INDEX 

2FB2 

10 D4 

BPL 

CHL00P1 

2F1B 

A9 00 

LDA 

#0 

2FB4 

AO 00 

LDY 

#0 

2F1D 

8D 4A 03 

STA 

SURPRISE 

2FB6 

B9 9B 38 DEFLOOP 

LDA 

CHARDEF.Y 

2F20 

8D 52 03 

STA 

SCORE 

2FB9 

99 00 24 

STA 

9216.Y 

2F23 

8D 53 03 

STA 

SCORE+1 

2FBC 

B9 93 39 

LDA 

CHARDEF+248.Y 

2F26 

8D 63 03 

STA 

BONFLAG 

2FBF 

99 F8 24 

STA 

9216+248,Y 

2F29 

A9 00 

LDA 

#0 

2FC2 

B9 B3 3A 

LDA 

NEWDEF.Y 

2F2B 

8D 64 03 

STA 

SONGNUM 

2FC5 

99 DO 21 

STA 

8656,Y 

2F2E 

A9FF 

LDA 

#255 

2FC8 

88 

DEY 


2F30 

8D 65 03 

STA 

NOTENUM 

2FC9 

DO EB 

BNE 

DEFLOOP 

2F33 

A9 65 

LDA 

#101 

2FCB 

AO IF 

LDY 

#31 
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2FCD 

B9 93 3A MO 

LDA 

MOUS.Y 

3056 

20 FB 2F 

JSR 

RAND 

2FD0 

99 D8 20 

STA 

8408,Y 

3059 

30 2E 

BMI 

FORGET 

2FD3 

88 

DEY 


305B 

20 FB 2F AG 

JSR 

RAND 

2FD4 

10 F7 

BPL 

MD 

305E 

29 03 

AND 

#3 

2FD6 

60 

RTS 


3060 

C9 03 

CMP 

#3 

2FD7 

AD 12 FF CUST16 

LDA 

65298 

3062 

FO 25 

BEQ 

FORGET 

2FDA 

29 FB 

AND 

#251 

3064 

AA 

TAX 


2FDC 

8D 12 FF 

STA 

65298 

3065 

A5 04 

LDA 

FREEO 

2FDF 

AD 13 FF 

LDA 

65299 

3067 

18 

CLC 


2FE2 

29 03 

AND 

#3 

3068 

7D 8A 30 

ADC 

NUMBER,X 

2FE4 

09 20 

ORA 

#32 

306B 

85 04 

STA 

FREEO 

2FE6 

8D 13 FF 

STA 

65299 

306D 

A5 05 

LDA 

FREEO+1 

2FE9 

A9 D8 

LDA 

#216 

306F 

69 00 

ADC 

#0 

2FEB 

8D 07 FF 

STA 

65287 

3071 

85 05 

STA 

FREEO+1 

2FEE 

A9 62 

LDA 

#98 

3073 

AO 00 

LDY 

#0 

2FF0 

8D 17 FF 

STA 

65303 

3075 

A9 85 

LDA 

#133 

2FF3 

A9 41 

LDA 

#65 

3077 

91 04 

STA 

(FREEO),Y 

2FF5 

8D 16 FF 

STA 

65302 

3079 

C8 

INY 


2FF8 

4C 76 2F 

JMP 

TRANSFER 

307A 

A9 86 

LDA 

#134 

; 




307C 

91 04 

STA 

(FREEO),Y 

; random number 



307E 

AO 28 

LDY 

#40 





3080 

A9 87 

LDA 

#135 

2FFB 

RAND 

= 

* 

3082 

91 04 

STA 

(FREEO),Y 

2FFB 

AD 07 28 

LDA 

SEED 

3084 

C8 

INY 


2FFE 

OA 

ASL 


3085 

A9 88 

LDA 

#136 

2FFF 

OA 

ASL 


3087 

91 04 

STA 

(FREEO),Y 

3000 

38 

SEC 


3089 

60 FORGET 

RTS 


3001 

6D 07 28 

ADC 

SEED 

308A 

00 FO 78 NUMBER 

.BYT 

0,240,120 

3004 

8D 07 28 

STA 

SEED 

308D 

AD 08 28 FALL 

LDA 

SYNC1 

3007 

60 

RTS 


3090 

4A 

LSR 






3091 

BO 55 

BCS 

NO 

; scroll 

glasses 



3093 

A2 09 

LDX 

#9 





3095 

AD5A03 

LDA 

SCREEN 

3008 

GLASS 

= 

♦ 

3098 

18 

CLC 


3008 

20 FF 2C 

JSR 

FIX 

3099 

69 E6 

ADC 

#<742 

300B 

EE 08 28 

INC 

SYNC1 

309B 

85 04 

STA 

FREEO 

300E 

AD 5A 03 

LDA 

SCREEN 

309D 

AD 5B 03 

LDA 

SCREEN+1 

3011 

18 

CLC 


30A0 

69 02 

ADC 

#>742 

3012 

69 70 

ADC 

#<368 

30A2 

85 05 

STA 

FREEO+1 

3014 

85 02 

STA 

TEMPO 

30A4 

A5 04 FL00P2 

LDA 

FREEO 

3016 

85 04 

STA 

FREEO 

30A6 

38 

SEC 


3018 

AD5B03 

LDA 

SCREEN+1 

30A7 

E9 28 

SBC 

#40 

301B 

69 01 

ADC 

#>368 

30A9 

85 02 

STA 

TEMPO 

301D 

85 03 

STA 

TEMPO+1 

30AB 

A5 05 

LDA 

FREEO+1 

301F 

85 05 

STA 

FREEO+1 

30AD 

E9 00 

SBC 

#0 

3021 

A9 03 

LDA 

#3 

30AF 

85 03 

STA 

TEMPO+1 

3023 

8D 03 28 

STA 

TEMP 

30B1 

AO 01 

LDY 

#1 

3026 

A2 02 GL00P3 

LDX 

#2 

30B3 

B1 02 FL00P1 

LDA 

(TEMPO),Y 

3028 

AO OE GL00P1 

LDY 

#14 

30B5 

EO 09 

CPX 

#9 

302A 

B1 02 GL00P2 

LDA 

(TEMPO).Y 

30B7 

DO OB 

BNE 

NCH 

302C 

C9 85 

CMP 

#133 

30B9 

C9 85 

CMP 

#133 

302E 

90 04 

BCC 

BAD 

3066 

DO 07 

BNE 

NCH 

3030 

C9 89 

CMP 

#137 

30BD 

48 

PHA 


3032 

90 02 

BCC 

FOG 

30BE 

A9 05 

LDA 

#5 

3034 

A9 20 BAD 

LDA 

#32 

30C0 

20 2C 29 

JSR 

SUBSCORE 

3036 

C8 FOG 

INY 


30C3 

68 

PLA 


3037 

91 02 

STA 

(TEMPO),Y 

30C4 

C9 84 NCH 

CMP 

#132 

3039 

88 

DEY 


30C6 

DO 02 

BNE 

DOT 

303A 

88 

DEY 


30C8 

A9 20 

LDA 

#32 

303B 

10 ED 

BPL 

GL00P2 

30CA 

91 04 DOT 

STA 

(FREEO),Y 

303D 

C8 

INY 


30CC 

88 

DEY 


303E 

A9 20 

LDA 

#32 

30CD 

10 E4 

BPL 

FL00P1 

3040 

91 02 

STA 

(TEMPO),Y 

30CF 

A5 04 

LDA 

FREEO 

3042 

20 E9 30 

JSR 

ADD40 

30D1 

38 

SEC 


3045 

CA 

DEX 


30D2 

E9 28 

SBC 

#40 

3046 

DO EO 

BNE 

GL00P1 

30D4 

85 04 

STA 

FREEO 

3048 

20 E9 30 

JSR 

ADD40 

30D6 

A5 05 

LDA 

FREEO+1 

304B 

CE 03 28 

DEC 

TEMP 

30D8 

E9 00 

SBC 

#0 

304E 

DO D6 

BNE 

GL00P3 

30DA 

85 05 

STA 

FREEO+1 

3050 

AD 08 28 

LDA 

SYNC1 

30DC 

CA 

DEX 


3053 

4A 

LSR 


30DD 

D0C5 

BNE 

FL00P2 

3054 

BO 33 

BCS 

FORGET 

30DF 

AO 01 

LDY 

#1 
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30E1 

A9 20 FLOOP4 

LDA 

#32 

3171 

OA 

ASL 


30E3 

91 02 

STA 

(TEMPO),Y 

3172 

A8 

TAY 


30E5 

88 

DEY 


3173 

B1 04 

LDA 

(FREEO),Y 

30E6 

10 F9 

BPL 

FL00P4 

3175 

38 

SEC 


30E8 

60 NO 

RTS 


3176 

E9 01 

SBC 

#1 

30E9 

A5 02 ADD40 

LDA 

TEMPO 

3178 

OA 

ASL 


30EB 

18 

CLC 


3179 

AE 56 03 

LDX 

COMPUTER 

30EC 

69 28 

ADC 

#40 

317C 

DO ID 

BNE 

COM2 

30EE 

85 02 

STA 

TEMPO 

317E 

AA 

TAX 


30F0 

A5 03 

LDA 

TEMPO+1 

317F 

BD F6 31 

LDA 

PLUSNOTE,X 

30F2 

69 00 

ADC 

#0 

3182 

8D OE FF 

STA 

65294 

30F4 

85 03 

STA 

TEMPO+1 

3185 

AD 12 FF 

LDA 

65298 

30F6 

60 

RTS 


3188 

29 FC 

AND 

#252 





318A 

ID F7 31 

ORA 

PLUSNOTE+1,X 

; scroll the piano 



318D 

8D 12 FF 

STA 

65298 





3190 

AD 11 FF 

LDA 

65297 

30F7 

PIANO 

= 

* 

3193 

09 10 

ORA 

#16 

30F7 

AD 5A 03 

LDA 

SCREEN 

3195 

8D 11 FF 

STA 

65297 

30FA 

18 

CLC 


3198 

4C B6 31 

JMP 

DURATION 

30FB 

69 FD 

ADC 

#<509 

319B 

AA COM2 

TAX 


30FD 

85 02 

STA 

TEMPO 

319C 

BD 39 32 

LDA 

NOTE64+1.X 

30FF 

AD 5B 03 

LDA 

SCREEN+1 

319F 

4A 

LSR 


3102 

69 01 

ADC 

#>509 

31 AO 

08 

PHP 


3104 

85 03 

STA 

TEMPO+1 

31A1 

8D OF D4 

STA 

54287 

3106 

A9 02 

LDA 

#2 

31A4 

BD38 32 

LDA 

NOTE64.X 

3108 

8D 06 28 

STA 

TEMP4 

31A7 

28 

PLP 


31 OB 

AD 06 28 PLOOP3 

LDA 

TEMP4 

31A8 

6A 

ROR 


31OE 

8D 03 28 

STA 

TEMP 

31A9 

8D OE D4 

STA 

54286 

3111 

A2 02 PL00P1 

LDX 

#2 

31 AC 

A9 10 

LDA 

#16 

3113 

AD 03 28 PL00P2 

LDA 

TEMP 

31AE 

8D 12 D4 

STA 

54290 

3116 

18 

CLC 


31B1 

A9 11 

LDA 

#17 

3117 

69 28 

ADC 

#40 

31B3 

8D 12 D4 

STA 

54290 

3119 

A8 

TAY 


31B6 

DURATION 

= 

* 

311A 

8D 04 28 

STA 

TEMP2 

31B6 

AD5A03 

LDA 

SCREEN 

311D 

B1 02 

LDA 

(TEMPO),Y 

31B9 

18 

CLC 


31 IF 

AC 03 28 

LDY 

TEMP 

31 BA 

69 9A 

ADC 

#<666 

3122 

91 02 

STA 

(TEMPO),Y 

31BC 

85 02 

STA 

TEMPO 

3124 

AD 04 28 

LDA 

TEMP2 

31 BE 

AD 5B 03 

LDA 

SCREEN+1 

3127 

8D 03 28 

STA 

TEMP 

31 Cl 

69 02 

ADC 

#>666 

312A 

CA 

DEX 


31C3 

85 03 

STA 

TEMPO+1 

312B 

DO E6 

BNE 

PL00P2 

31C5 

98 

TYA 


312D 

A8 

TAY 


31C6 

48 

PHA 


312E 

A2 AO 

LDX 

#160 

31C7 

A9B6 

LDA 

#182 

3130 

20 FB 2F 

JSR 

RAND 

31C9 

AO 08 

LDY 

#8 

3133 

C9 32 

CMP 

#50 

31CB 

91 02 FLP 

STA 

(TEMPO),Y 

3135 

BO 02 

BCS 

PERIOD 

31 CD 

88 

DEY 


3137 

A2 B5 

LDX 

#181 

31 CE 

10 FB 

BPL 

FLP 

3139 

8A PERIOD 

TXA 


31 DO 

8A 

TXA 


313A 

91 02 

STA 

(TEMPO),Y 

31D1 

4A 

LSR 


313C 

CE 06 28 

DEC 

TEMP4 

31D2 

4A 

LSR 


313F 

10 CA 

BPL 

PL00P3 

31D3 

4A 

LSR 


3141 

CE 66 03 

DEC 

COUNTER 

31D4 

C9 08 

CMP 

#8 

3144 

FO 01 

BEQ 

DOSONG 

31D6 

90 02 

BCC 

FN 

3146 

60 

RTS 


31D8 

A9 07 

LDA 

#7 

3147 

AD 64 03 DOSONG 

LDA 

SONGNUM 

31 DA 

A8 FN 

TAY 


314A 

C9 02 

CMP 

#2 

31DB 

A9 B8 

LDA 

#184 

314C 

DO 03 

BNE 

CMUS 

31DD 

91 02 

STA 

(TEMPO),Y 

314E 

4C ED 31 

JMP 

ROME 

31DF 

C8 

INY 


3151 

A8 CMUS 

TAY 


31EO 

A9B9 

LDA 

#185 

3152 

OA 

ASL 


31E2 

91 02 

STA 

(TEMPO),Y 

3153 

AA 

TAX 


31E4 

68 

PLA 


3154 

BD 7A 32 

LDA 

SONGS,X 

31E5 

A8 

TAY 


3157 

85 04 

STA 

FREEO 

31E6 

C8 

INY 


3159 

BD 7B 32 

LDA 

SONGS+1,X 

31E7 

B1 04 

LDA 

(FREEO),Y 

315C 

85 05 

STA 

FREEO+1 

31E9 

8D 66 03 

STA 

COUNTER 

315E 

B9 AF 33 

LDA 

SONGLEN.Y 

31 EC 

60 

RTS 


3161 

CD 65 03 

CMP 

NOTENUM 

31 ED 

AD 11 FF ROME 

LDA 

65297 

3164 

BO 05 

BCS 

OKAY 

31 FO 

29 4F 

AND 

#79 

3166 

A9 FF 

LDA 

#255 

31F2 

8D11 FF 

STA 

65297 

3168 

8D 65 03 

STA 

NOTENUM 

31F5 

60 

RTS 


316B 

EE 65 03 OKAY 

INC 

NOTENUM 

31F6 

54 02 6C PLUSNOTE 

.WORD 596,620,643,664,68 

316E 

AD 65 03 

LDA 

NOTENUM 




5,704,722,739,755 
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3208 

02 03 10 

.WORD 770,784,798,810,82 

33B7 

FO 2B 

BEQ 

C0MM64 




2,834,844,854,864 

33B9 

A9 00 

LDA 

#<2048 

321A 

69 03 71 

.WORD 873,881,889,897,90 

33BB 

8D 12 28 

STA 

COLOR 




4,911,917,923,929 

33BE 

A9 08 

LDA 

#>2048 

322C 

A6 03 AB 

.WORD 934,939,944,948,95 

33C0 

8D 13 28 

STA 

COLOR-!-1 




3,957 

33C3 

A9 00 

LDA 

#<-1024 

3238 

87 21 86 N0TE64 

.WORD 8583,9094,9634,10 

33C5 

8D 14 28 

STA 

COLDIF 




207,10814,11457,1 

33C8 

A9FC 

LDA 

#>-1024 




2139 

33CA 

8D 15 28 

STA 

COLDIF 4-1 

3246 

3C 32 39 

.WORD 12860,13625,14435 

33CD 

A9 03 

LDA 

#3 




,15294,16203,1716 

33CF 

8D 10 FF 

STA 

65296 




7,18188 

33D2 

A9C8 

LDA 

#200 

3254 

45 4B BF 

.WORD 19269,20415,21629 

33D4 

8D OF FF 

STA 

65295 




,22915,24278,2572 

33D7 

A9 OF 

LDA 

#15 




1,27251 

33D9 

8D11 FF 

STA 

65297 

3262 

C7 70 7C 

.WORD 28871,30588,32407 

33DC 

A9 00 

LDA 

#0 




,34334 

33DE 

A200 

LDX 

#<3072 

326A 

18 8E 8B 

.WORD 36376,38539,40830 

33E0 

AO OC 

LDY 

#>3072 




,43258,45830,4855 

33E2 

DO 1A 

BNE 

AR4 




6 

33E4 

A9 00 COMM64 

LDA 

#<55296 

3276 

F3 C8E6 

.WORD 51443,54502 

33E6 

8D 12 28 

STA 

COLOR 

327A 

80 32 02 SONGS 

.WORD SONG1.SONG2.SON 

33E9 

A9D8 

LDA 

#>55296 




G3 

33EB 

8D 13 28 

STA 

COLOR 4-1 

3280 

19 01 IB S0NG1 

.BYT 

25,1,27,2,25,1,27,2, 

33EE 

A9 00 

LDA 

#<54272 




25,2,22,1,23,2,22,1 

33F0 

8D 14 28 

STA 

COLDIF 

3290 

17 02 16 

.BYT 

23,2,22,2,20,1,22,2, 

33F3 

A9 D4 

LDA 

#>54272 




20,1,22,2,20,2,15,8 

33F5 

8D 15 28 

STA 

COLDIF+1 

32A0 

16 01 14 

.BYT 

22,1,20,2,19,1,22,2, 

33F8 

A9 01 

LDA 

#1 




20,2,25,8,18,1,22,2 

33FA 

A2 00 

LDX 

#<1024 

32B0 

19 01 ID 

.BYT 

25,1,29,2,27,2,25,8 

33FC 

AO 04 

LDY 

#>1024 

32B8 

19 01 IB 

.BYT 

25,1,27,2,25,1,27,2, 

33FE 

8D 56 03 AR4 

STA 

COMPUTER 




25,2,22,1,23,2,22,1 

3401 

8E 5A 03 

STX 

SCREEN 

32C8 

17 02 16 

.BYT 

23,2,22,2,20,1,22,2, 

3404 

8C 5B 03 

STY 

SCREEN 4-1 




20,1,22,2,20,2,15,8 

3407 

60 

RTS 


32D8 

14 01 16 

.BYT 

20,1,22,2,20,1,25,2, 








22,2,20,1,22,2,20,1 

; string out routine 



32E8 

19 02 16 

.BYT 

25,2,22,2,20,1,22,2, 

20,1,25,2,20,2,18,2 

3408 

AE 56 03 STROUT 

LDX 

COMPUTER 

32F8 

0D 01 OF 

.BYT 

13,1,15,2,13,1,10,2, 

340B 

FO 03 

BEQ 

PLUS2 




6,4 

340D 

4C IE AB 

JMP 

SAB1E 

3302 

09 01 10 SONG2 

.BYT 

9,1,16,1,9,1,13,1,16, 

2,8,1,16,1,8,1,11,1 

3410 

4C 88 90 PLUS2 

JMP 

$9088 

3314 

10 05 

.BYT 

16,5 

; number output routine 



3316 

09 01 10 

.BYT 

9,1,16,1,9,1,13,1,16, 

2,8,1,16,1,8,1,11,1 

3413 

8E 03 28 NUMOUT 

STX 

TEMP 

3328 

10 03 04 

.BYT 

16,3,4,2,5,4,4,2,4,2, 

3416 

8D04 28 

STA 

TEMP4-1 




5,4,4,4,9,1,9,1 

3419 

AO FE 

LDY 

#254 

333A 

0C 01 15 

.BYT 

12,1,21,1,9,1,9,1,12, 

341B 

C8 FLOOP 

INY 





1,21,1,21,1,21,1,24, 

1 

341C 

C8 

INY 





341D 

AD 03 28 

LDA 

TEMP 

334C 

21 01 15 

.BYT 

33,1,21,1,21,1,24,1, 

3420 

38 

SEC 





33,1 

3421 

F9 53 34 

SBC 

DTAB.Y 

3356 

21 02 21 

.BYT 

33,2,33,2,33,2,33,1, 

3424 

AD 04 28 

LDA 

TEMP 4-1 




33,2,28,1,30,1,25,1 

3427 

F9 54 34 

SBC 

DTAB4-1.Y 

3366 

1C 01 IE 

.BYT 

28,1,30,2,21,2,23,1, 

342A 

BO EF 

BCS 

FLOOP 




25,1,21,1,23,1,25,1 

342C 

98 

TYA 


3376 

15 01 17 

.BYT 

21,1,23,1,25,1,21,1, 

342D 

4A 

LSR 





23,2,21,4 

342E 

8D 05 28 

STA 

TEMP4-2 

3382 

15 02 15 

.BYT 

21,2,21,2,21,2,21,1, 

3431 

A9 04 

LDA 

#4 




21,2,16,1,18,1,13,1 

3433 

38 

SEC 


3392 

10 01 12 

.BYT 

16,1,18,2,9,2,11,1,1 

3434 

ED 05 28 

SBC 

TEMP4-2 




3,1,9,1,11,1,13,1 

3437 

AA 

TAX 


33A2 

09 01 0B 

.BYT 

9,1,11,1,13,1,9,1,11, 

3438 

FO 08 

BEQ 

Q 




2,9,5 

343A 

A9 20 SPOUT 

LDA 

#32 

33AE 

00 SONG3 

.BYT 

0 

343C 

20 D2 FF 

JSR 

$FFD2 

33AF 

3F 54 00 SONGLEN 

.BYT 

63,84,0 

343F 

CA 

DEX 






3440 

DO F8 

BNE 

SPOUT 

; which computerprint 



3442 

AE 03 28 Q 

LDX 

TEMP 





3445 

AD 04 28 

LDA 

TEMP4-1 

33B2 

HUH 

= 

* 

3448 

AC 56 03 

LDY 

COMPUTER 

33B2 

AD 28 03 

LDA 

$328 

344B 

FO 03 

BEQ 

PLUS3 

33B5 

C9ED 

CMP 

#$ED 

344D 

4C CD BD 

JMP 

$BDCD 
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3450 

4C 5F A4 PLUS3 

JMP 

$A45F 

34F0 

8D 03 28 

STA 

TEMP 

3453 

0A 00 64 DTAB 

.WORD 10,100,1000,10000, 

34F3 

AE 03 28 DL00P3 

LDX 

TEMP 




65535 

34F6 

AO 08 

LDY 

#8 





34F8 

18 

CLC 


; draw screen 



34F9 

20 FO FF 

JSR 

$FFFO 





34FC 

A9 IB 

LDA 

#<STRING5 

345D 

DRMSCREE 

= 

* 

34FE 

AO 36 

LDY 

#>STRING5 

345D 

A9 93 

LDA 

#"{CLR}" 

$FFD2 

3500 

20 08 34 

JSR 

STROUT 

345F 

20 D2 FF 

JSR 

3503 

AD 03 28 

LDA 

TEMP 

3462 

AD 12 28 

LDA 

COLOR 

3506 

38 

SEC 


3465 

85 04 

STA 

FREEO 

3507 

E9 03 

SBC 

#3 

3467 

AD 13 28 

LDA 

COLOR+1 

3509 

8D 03 28 

STA 

TEMP 

346A 

85 05 

STA 

FREEO+1 

350C 

C9 0A 

CMP 

#10 

346C 

A9 OF 

LDA 

#15 

350E 

B0E3 

BCS 

DL00P3 

346E 

AE 56 03 

LDX 

COMPUTER 

3510 

A2 0B 

LDX 

#11 

3471 

DO 02 

BNE 

PLS1 

3512 

AO 19 

LDY 

#25 

3473 

A9 6F 

LDA 

#111 

3514 

18 

CLC 


3475 

A2 04 PLS1 

LDX 

#4 

3515 

20 FO FF 

JSR 

$FFFO 

3477 

AO 00 

LDY 

#0 

3518 

A9 5C 

LDA 

#<PIAN01 

3479 

91 04 COLOOP 

STA 

(FREEO),Y 

351A 

AO 36 

LDY 

#>PIAN01 

347B 

88 

DEY 

351C 

20 08 34 - 

JSR 

STROUT 

347C 

DO FB 

BNE 

COLOOP 

351F 

A2 0B 

LDX 

#11 

347E 

E6 05 

INC 

FREEO+1 

3521 

AO 1A 

LDY 

#26 

3480 

CA 

DEX 


3523 

18 

CLC 


3481 

DO F6 

BNE 

COLOOP 

3524 

20 FO FF 

JSR 

$FFFO 

3483 

A9 00 

LDA 

#0 

3527 

A9 78 

LDA 

#<P!AN02 

3485 

AE 56 03 

LDX 

COMPUTER 

3529 

AO 36 

LDY 

#>PIAN02 

3488 

FO 08 

BED 

PLUS1 

352B 

20 08 34 

JSR 

STROUT 

348A 

8D 20 DO 

STA 

53280 

352E 

A2 0C 

LDX 

#12 

348D 

8D 21 DO 

STA 

53281 

3530 

AO ID 

LDY 

#29 

3490 

FO 06 

BEQ 

AR1 

3532 

18 

CLC 


3492 

8D 15 FF PLUS1 

STA 

65301 

3533 

20 FO FF 

JSR 

$FFFO 

3495 

8D 19 FF 

STA 

65305 

3536 

A9 F6 

LDA 

#<PIAN03 

3498 

A9 13 AR1 

LDA 

#19 

3538 

AO 36 

LDY 

#>PIAN03 

349A 

8D 03 28 

STA 

TEMP 

353A 

20 08 34 

JSR 

STROUT 

349D 

AE 03 28 DL00P1 

LDX 

TEMP 

353D 

A9 0D 

LDA 

#13 

34A0 

AO 07 

LDY 

#7 

353F 

8D 03 28 

STA 

TEMP 

34A2 

18 

CLC 


3542 

A2 04 DL00P4 

LDX 

#4 

34A3 

20 FO FF 

JSR 

$FFFO 

3544 

AC 03 28 

LDY 

TEMP 

34A6 

A9CB 

LDA 

#<STRING2 

3547 

20 A7 35 

JSR 

DR/WINDOW 

34A8 

AO 35 

LDY 

#>STRING2 

354A 

AD 03 28 

LDA 

TEMP 

34AA 

20 08 34 

JSR 

STROUT 

354D 

18 

CLC 


34AD 

EE 03 28 

INC 

TEMP 

354E 

69 OA 

ADC 

#10 

34B0 

AD 03 28 

LDA 

TEMP 

3550 

8D 03 28 

STA 

TEMP 

34B3 

C9 17 

CMP 

#23 

3553 

C9 28 

CMP 

#40 

34B5 

DO E6 

BNE 

DL00P1 

3555 

90 EB 

BCC 

DL00P4 

34B7 

A2 17 

LDX 

#23 

3557 

AD 5A 03 

LDA 

SCREEN 

34B9 

AO 03 

LDY 

#3 

355A 

85 04 

STA 

FREEO 

34BB 

18 

CLC 


355C 

AD 5B 03 

LDA 

SCREEN+1 

34BC 

20 FO FF 

JSR 

$FFFO 

355F 

85 05 

STA 

FREEO+1 

34BF 

A9EF 

LDA 

#<STRING3 

3561 

AO 09 

LDY 

#9 

34C1 

AO 35 

LDY 

#>STRING3 

3563 

A2 3A 

LDX 

#58 

34C3 

20 08 34 

JSR 

STROUT 

3565 

8A PP 

TXA 


34C6 

A2 03 

LDX 

#3 . 

3566 

91 04 

STA 

(FREEO),Y 

34C8 

AO 07 

LDY 

#7 

3568 

C8 

INY 

34CA 

18 

CLC 


3569 

E8 

INX 


34CB 

20 FO FF 

JSR 

$FFFO 

356A 

EO 56 

CPX 

#86 

34CE 

A9 10 

LDA 

#16 

356C 

DO F7 

BNE 

PP 

34D0 

8D 03 28 

STA 

TEMP 

356E 

AO 31 

LDY 

#49 

34D3 

A9 16 DL00P2 

LDA 

#<STRING4 

3570 

A2 56 

LDX 

#86 

3405 

AO 36 

LDY 

#>STRING4 

3572 

8A PP2 

TXA 


34D7 

20 08 34 

JSR 

STROUT 

3573 

91 04 

STA 

(FREEO),Y 

34DA 

CE 03 28 

DEC 

TEMP 

3575 

C8 

INY 

34DD 

DO F4 

BNE 

DL00P2 

3576 

E8 

INX 


34DF 

A2 00 

LDX 

#0 

3577 

EO 58 

CPX 

#88 

34E1 

AO 05 

LDY 

#5 

3579 

DO F7 

BNE 

PP2 

34E3 

18 

CLC 


357B 

A0 4B 

LDY 

#75 

34E4 

20 FO FF 

JSR 

$FFFO 

357D 

A2 59 

LDX 

#89 

34E7 

.A9 2A 

LDA 

#<STRING7 

357F 

8A PP3 

TXA 


34E9 

AO 36 

LDY 

#>STRING7 

3580 

91 04 

STA 

(FREEO).Y 

34EB 

20 08 34 

JSR 

STROUT 

3582 

C8 

INY 

34EE 

A9 11 

LDA 

#17 

3583 

CA 

DEX 
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n 


n 

n 

n 

n 
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U 


3584 

EO 57 

CPX 

3586 

DO F7 

BNE 

3588 

A2 04 

LDX 

358A 

AO 00 

LDY 

358C 

18 

CLC 

358D 

20 FO FF 

JSR 

3590 

A9 92 

LDA 

3592 

AO 37 

LDY 

3594 

20 08 34 

JSR 

3597 

A2 13 

LDX 

3599 

AO 06 

LDY 

359B 

18 

CLC 

359C 

20 FO FF 

JSR 

359F 

A9 B2 

LDA 

35A1 

AO 35 

LDY 

35A3 

20 08 34 

JSR 

35A6 

60 

RTS 

35A7 

18 DRAWINDOW 

CLC 

35A8 

20 FO FF 

JSR 

35AB 

A9 1C 

LDA 

35AD 

AO 37 

LDY 

35AF 

4C 08 34 

JMP 

35B2 

96 12 A9 STRING1 

.ASC 

35CA 

00 

.BYT 

35CB 

96 12 20 STRING2 

.ASC 

35EE 

00 

.BYT 

35EF 

12 B7 B7 STRING3 

.ASC 

3615 

00 

.BYT 

3616 

92 A5 11 STRING4 

.ASC 

361A 

00 

.BYT 

361B 

B8 B8 B8 STRING5 

.ASC 

3629 

00 

.BYT 

362A 

96 12 3D STRING7 

.ASC 

3650 

B7 B7 B7 

.ASC 

365B 

00 

.BYT 

365C 

05 12 A9 PIAN01 

.ASC 

3677 

00 

.BYT 

3678 

IF 12 20 PIAN02 

.ASC 

36A0 

20 20 20 

.ASC 

36C6 

20 20 20 

.ASC 

36EC 

20 20 20 

.ASC 

36F5 

00 

.BYT 

36F6 

05 12 20 PIAN03 

ASC 


#87 

PP3 

#4 

#0 

$FFF0 

#<MESS1 

#>MESS1 

STROUT 

#19 

#6 

$FFF0 

#<STRING1 

#>STRING1 

STROUT 


$FFF0 

#<WINDCW 

#>WINDCW 

STROUT 

"[<3H{RVS}£{D0 
WN}{2 LEFT}£{SP 
ACE} {DOWN} {3 LE 
FT}£{2 SR#E}{D 
0Wff}{4 LEFT}£{ 

3 SPACE}" “ 

0 

"E<3H{RVS}{33 SP 
ACE}" 

0 

"{RVS} E<37 Y>3" 

0 

"{0FF}E<GH{D0W 

N}{LEFT}" 

0 

"E<14 UH" 

0 

"E<3H{RVS}=:{D 
OWN}{2 LEFT};{0 
FF}{RvS}=:{DOW 

Tell Y>]" 

0 

"{WHT}{RVS}£{D 
OWN} {LEFT} {DO 
WN} {LEFT} {DOW 
NHLEFT} {DOWN} 
{LEFT} (DOWN}{L 
EFT} {DOWN}{LEF 
T}{2 SRACEUDCW 
N}{2 LEFT}{2 SPA 

r 

"{BLU}{RVS}{9SP 
ACE}{DOWN} {9 LE 
FT} {9 SRACt}{DO 
WN}{9 LEFT}" 

"{9 SPACE} {DOWN 
) LEFT}{9 l 
VN}{ S 


371B 00 

371C 9E 12 20 WINDOW 


3737 00 

3738 9E 12 DF OWINDOW 


3759 00 

375A 05 12 23 GOODGUY 


3775 00 

3776 05 12 2C BADGUY 


^7Qi m 

3792 IE 53 43 MESS1 


37BC 00 

37BD 05 50 52 MESS2 


37D8 00 

37D9 11 9D 9D MESS3 
37DC 00 
scroll the cards 


{9 LEFT}{9 SPAC 
:j{D0WN}{9 LEFT 


"{9 SPACE} {2 DO 
WN}{8 LEFT} {9 SP 
ACE} {DOWN} {9 LE 
FTr 

"{9 SRACE}" 

0 

"{WHT}{RVS}5{D 
OWN}{3 LEFT}{ 


3 SRACE}{DOWN} 
{3 LEFT}5{2 SFWC 
E}{2 DOWN} {6 LE 
FT}6666666667" 
.BYT 0 

.ASC "{YEL}{RVS} B {D 
OWN} {3 LEFT® 
+C{DuWN}{j LEF 
T} B {DOWN} {3 LE 
FT} {OFF} {3 ShC 

.BYT 0^ 

.ASC "{YEL}{RVS}{<*H 
{OFF} {RVS}£{DO 
WN}{3 LEFT} {OF 
F} {RVS} {DOWN} 
{3 LEFT}M{OFF 
} {RVS}N{DOWN} 
{3 LEFT} {UFF}f<* 
^£" 

.BYT 0 

ASC "{WHT}{RVS}#$ 
%{D0WN}{3 LEFT 
}&’({D0WN}{3 LE 
n-}r+{DCWN}( 

3 LEFT} {OFF} {3 SP 
ACE}" 

.BYT 0 

ASC "{WHT}{RVS},-.{D 
OWN} {3 LEFT}/01 
{DOWN} {3 LEFT}2 
34{D0WN}{3 LEFT 
}{0FF}{3 SRACE}" 
.BYT 0 

.ASC "{GRN}SCORE( 

4 DOWN} {4 LEFT} 
TIME{4 uuWN}{ 

4 LEFT} HIGH {4 DO 
WN}{4 LEFT}CARD 

.BYT 0 

.ASC "{WHT} PRESS RET 
URN TO PLAY AGAI 
N" 

.BYT 0 

.ASC "{DOWN} {2 LEFT} 
.BYT 0 


37DD 

CARDS 

= 

* 

37DD 

EE 50 03 

INC 

INDEX 

37E0 

AD 50 03 

LDA 

INDEX 

37E3 

C9 05 

CMP 

#5 

37E5 

DO 05 

BNE 

N0MAX2 

37E7 

A9 00 

LDA 

#0 

37E9 

8D 50 03 

STA 

INDEX 

37EC 

AD 5A 03 N0MAX2 

LDA 

SCREEN 

37EF 

18 

CLC 


37F0 

69 82 

ADC 

#<386 

37F2 

85 04 

STA 

FREEO 

37F4 

AD 5B03 

LDA 

SCREEN+1 

37F7 

69 01 

ADC 

#>386 

37F9 

85 05 

STA 

FREEO+1 

37FB 

20 30 2D 

JSR 

ADDCOLOR 

37FE 

AO 09 

LDY 

#9 

3800 

AD 56 03 

LDA 

COMPUTER 

3803 

DO 02 

BNE 

SY 

3805 

A9 71 

LDA 

#113 

3807 

91 02 SY 

STA 

(TEMPO),Y 

3809 

88 

DEY 
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n 
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380A 

10 FB 

BPL 

SY 

38AB 

380C 

AO 31 

LDY 

#49 


380E 

91 02 SZ 

STA 

(TEMPO),Y 

38B3 

3810 

88 

DEY 


3811 

CO 27 

CPY 

#39 

38BB 

3813 

DO F9 

BNE 

SZ 


3815 

A9 00 

LDA 

#0 

38C3 

3817 

8D 05 28 

STA 

TEMP3 


381A 

A9 03 

LDA 

#3 

38CB 

381C 

8D 04 28 

STA 

TEMP2 


381F 

AD 50 03 

LDA 

INDEX 

38D3 

3822 

8D 03 28 

STA 

TEMP 


3825 

AE 03 28 CD1 

LDX 

TEMP 

38DB 

3828 

BD 3C 03 

LDA 

CARDS2.X 


382B 

10 07 

BPL 

0V1 

38E3 

382D 

29 7F 

AND 

#127 


382F 

9D 3C 03 

STA 

CARDS2.X 

38EB 

3832 

A9 18 

LDA 

#24 


3834 

AA 0V1 

TAX 


38F3 

3835 

AC 05 28 

LDY 

TEMP3 


3838 

20 B3 2C 

JSR 

PUT3 

38FB 

383B 

AD 05 28 

LDA 

TEMP3 


383E 

18 

CLC 


3903 

383F 

69 03 

ADC 

#3 


3841 

8D 05 28 

STA 

TEMP3 

390B 

3844 

EE 03 28 

INC 

TEMP 


3847 

AD 03 28 

LDA 

TEMP 

3913 

384A 

C9 05 

CMP 

#5 


384C 

DO 05 

BNE 

NOMAX 

391B 

384E 

A9 00 

LDA 

#0 


3850 

8D 03 28 

STA 

TEMP 

3923 

3853 

CE 04 28 NOMAX 

DEC 

TEMP2 


3856 

DO CD 

BNE 

CD1 

392B 

3858 

20 FB 2F 

JSR 

RAND 


385B 

29 03 

AND 

#3 

3933 

385D 

AA 

TAX 



385E 

BD3C03 

LDA 

CARDS2.X 

393B 

3861 

C9 1C 

CMP 

#28 


3863 

FO 05 

BEQ 

NP2 

3943 

3865 

09 80 

ORA 

#128 


3867 

9D 3C03 

STA 

CARDS2.X 

394B 

386A 

60 NP2 

RTS 


386B 

04 08 OC CARDS3 

.BYT 

4,8,12,16,20 

3953 

3870 

98 FIXGARDS 

m 



3871 

48 

PHA 


395B 

3872 

8A 

TXA 



3873 

48 

PHA 


3963 

3874 

AO 04 

LDY 

#4 


3876 

A9 00 

LDA 

#0 

396B 

3878 

99 3C 03 PUF 

STA 

CARDS2.Y 


387B 

88 

DEY 


3973 

387C 

10 FA 

BPL 

PUF 


387E 

AO 04 

LDY 

#4 

397B 

3880 

20 FB 2F PUTCARD 

JSR 

RAND 


3883 

C9 05 

CMP 

#5 

3983 

3885 

B0F9 

BCS 

PUTCARD 


3887 

AA 

TAX 


398B 

3888 

BD3C03 

LDA 

CARDS2.X 


388B 

DO F3 

BNE 

PUTCARD 

3993 

388D 

B9 6B38 

LDA 

CARDS3.Y 


3890 

9D 3C 03 

STA 

CARDS2.X 

399B 

3893 

88 

DEY 


3894 

10 EA 

BPL 

PUTCARD 

39A3 

3896 

68 

PLA 



3897 

AA 

TAX 


39AB 

3898 

68 

PLA 



3899 

A8 

TAY 


39B3 

389A 

60 

RTS 



389B 

CHARDEF 

= 

* 

39BB 

389B 

96 96 96 

.BYT 

150,150,150,150,15 

0,150,150,150 

39C3 

38A3 

96 96 96 

.BYT 

150,150,150,150,15 


0,150,150,150 

160 


n 

n 


95 55 95 

.BYT 

149,85,149,149,149, 

85,101,169 

n 

6A 9A 6A 

.BYT 

106,154,106,170,10 

6,86,85,86 

n 

6C FF 7F 

.BYT 

108,255,127,126,25 

4,255,127,102 

OC 33 CO 

.BYT 

12,51,192,76,115,64 

,127,127 

n 

CO 30 CO 

.BYT 

192,48,192,212,17,1 

7,209,209 

7F 7F 7F 

.BYT 

127,127,127,127,12 

7,127,127,21 


D1 D1 D5 

.BYT 

209,209,213,212,20 

8,208,208,64 


OCOO CO 

.BYT 

12,0,192,12,67,0,11 

5,67 


00 00 CO 

.BYT 

0,0,192,196,1,17,20 

9,0 


30 40 43 

.BYT 

48,64,67,51,76,15,6 

0,21 


D1 11 04 

.BYT 

209,17,4,192,208,16 

,0,0 


7F E7 C3 

.BYT 

127,231,195,153,15 

3,129,153,153 


FE FB FI 

.BYT 

254,251,241,251,23 

9,223,191,127 


FE FD FB 

.BYT 

254,253,251,247,22 

3,143,223,127 


E7 C3 99 

.BYT 

231,195,153,153,12 

9,153,153,254 


7F 99 93 

.BYT 

127,153,147,135,13 

5,147,153,255 


FE FB FI 

.BYT 

254,251,241,251,23 

9,223,191,127 


FE FD FB 

.BYT 

254,253,251,247,22 

3,143,223,127 


FF 99 93 

.BYT 

255,153,147,135,13 

5,147,153,254 


7F 81 9D 

.BYT 

127,129,157,157,15 

7,149,129,251 


FE FB FI 

.BYT 

254,251,241,251,23 

9,223,191,127 


FE FD FB 

.BYT 

254,253,251,247,22 

3,143,223,127 


7F 81 9D 

.BYT 

127,129,157,157,15 

7,149,129,251 


7F El F3 

.BYT 

127,225,243,243,24 

3,243,179,131 


FE FB FI 

.BYT 

254,251,241,251,23 

9,223,191,127 


FE FD FB 

.BYT 

254,253,251,247,22 

3,143,223,127 


7F El F3 

.BYT 

127,225,243,243,24 

3,243,179,131 


FF 73 6D 

.BYT 

255,115,109,109,10 

9,109,051,254 

n 

FE FB FI 

.BYT 

254,251,241,251,23 

9,223,191,127 

FE FD FB 

.BYT 

254,253,251,247,22 

3,143,223,127 

n 

FF FF FF 

.BYT 

255,255,255,255,25 

5,255,255,255 


FF 73 6D 

.BYT 

255,115,109,109,10 

9,109,51,254 

H 

FF 80 80 

.BYT 

255,128,128,128,12 

8,128,128,128 

n 

FF 80 80 

.BYT 

255,128,128,128,12 

8,128,128,128 

FF 00 63 

.BYT 

255,0,99,247,255,25 

5,255,255 

n 

FF 01 01 

.BYT 

255,1,1,129,129,129 

,129,129 

n 



The Source Code 


39CB 

80 84 83 

.BYT 

128,132,131,129,12 

3B03 

55 40 44 

.BYT 

85,64,68,68,68,64,8 




9,129,129,129 




5,0 

39D3 

FF FF FF 

.BYT 

255,255,255,0,34,34 

3B0B 

55 45 41 

.BYT 

85,69,65,64,68,69,8 




,8,8 




5,0 

39DB 

81 91 El 

.BYT 

129,145,225,65,65,6 

3B13 

50 14 15 

.BYT 

80,20,21,21,21,20,8 




5,65,65 




0.0 

39E3 

81 81 80 

.BYT 

129,129,128,159,19 

3B1B 

15 50 51 

.BYT 

21,80,81,84,85,80,2 




1,255,255,255 




1,0 

39EB 

41 3E 80 

BYT 

65,62,128,127,128,2 

3B23 

55 11 51 

.BYT 

85,17,81,80,17,17,8 




55,255,255 




5,0 

39F3 

41 41 81 

.BYT 

65,65,129,121,125,2 

3B2B 

55 10 11 

.BYT 

85,16,17,17,17,16,8 




55,255,255 




5,0 

39FB 

FF 80 80 

.BYT 

255,128,128,129,12 

3B33 

55 10 11 

.BYT 

85,16,17,17,17,16,8 




9,129,129,129 




5,0 

3A03 

FF 63 F7 

.BYT 

255,99,247,136,128, 

3B3B 

55 10 14 

.BYT 

85,16,20,20,20,20,8 




128,128,128 




5,0 

3A0B 

FF 01 81 

.BYT 

255,1,129,193,193,1 

3B43 

55 10 51 

.BYT 

85,16,81,81,81,80,8 




93,193,193 




5,0 

3A13 

91 8F 81 

.BYT 

145,143,129,129,12 

3B4B 

55 11 11 

.BYT 

85,17,17,17,17,16,8 




9,129,131,129 




5,0 

3A1B 

FF FF 00 

.BYT 

255,255,0,99,66,8,2 

3B53 

55 10 14 

.BYT 

85,16,20,20,20,20,8 




55,255 




5,0 

3A23 

C5 F9 41 

.BYT 

197,249,65,65,65,81 

3B5B 

51 15 55 

.BYT 

81,21,85,85,81,81,6 




,249,193 




4,0 

3A2B 

80 9F AO 

.BYT 

128,159,160,192,19 

3B63 

40 50 50 

.BYT 

64,80,80,80,86,86,2 




2,192,192,255 




2,0 

3A33 

FF 7F BE 

.BYT 

255,127,190,28,12,4 

3B6B 

00 00 00 

.BYT 

0,0,0,0,170,255,170, 




,0,255 




0 

3A3B 

81 79 85 

.BYT 

129,121,133,3,3,3,3, 

3B73 

00 00 00 

.BYT 

0,0,0,0,170,255,170, 




255 




0 

3A43 

FF FF FF 

.BYT 

255,255,255,231,23 

3B7B 

00 00 00 

.BYT 

0,0,0,0,170,255,170, 




1,255,255,255 




0 

3A4B 

63 B1 08 

.BYT 

99,177,216,239,247, 

3B83 

00 00 00 

.BYT 

0,0,0,128,170,255,1 




251,253,254 




91,186 

3A53 

00 80 CO 

.BYT 

0,128,192,224,240,2 

3B8B 

00 00 08 

.BYT 

0,0,8,32,128,224,24 




48,252,254 




8,254 

3A5B 

1C 8E C7 

.BYT 

28,142,199,224,240, 

3B93 

BE BE BE 

.BYT 

190,190,190,190,19 




248,252,254 




0,190,190,170 

3A63 

E3 71 38 

.BYT 

227,113,56,31,15,7, 

3B9B 

B8 20 00 

.BYT 

184,32,0,0,0,0,0,0 




3,1 

3BA3 

BE BE BE 

.BYT 

190,190,190,190,19 

3A6B 

00 00 00 

.BYT 

0,0,0,0,0,0,0,128 




0,190,190,170 

3A73 

01 00 00 

.BYT 

1,0,0,0,0,0,0,0 

3BAB 

2E 08 00 

.BYT 

46,8,0,0,0,0,0,0 

3A7B 

00 00 18 

.BYT 

0,0,24,60,60,60,60,1 

3BB3 

B8 20 00 

.BYT 

184,32,0,0,0,0,0,0 




26 

3BBB 

BE BE BE 

.BYT 

190,190,190,190,19 

3A83 

CO EO 70 

.BYT 

192,224,112,56,28,1 




0,190,190,170 




4,7,3 

3BC3 

STACK1 

= 

* 

3A8B 

FF FF CO 

.BYT 

255,255,192,192,19 

2,192,192,192 

3BC3 

STACK2 

= 

*+20 

3A93 

00 00 00 MOUS 

.BYT 

0,0,0,15,31,255,8,0 





3A9B 

00 00 00 

.BYT 

0,0,0,144,248,252,3 

3BC3 

STACK3 

= 

*+40 




2,0 

3BC3 

STACK4 

= 

*+60 

3AA3 

00 00 00 

.BYT 

0,0,0,9,31,63,4,0 

3BG3 

STACK5 

= 

*+80 

3AAB 

00 00 00 

.BYT 

0,0,0,240,248,255,1 

6,0 





3AB3 

00 00 08 NEWDEF 

.BYT 

0,0,8,2,2,11,47,191 





3ABB 

00 00 00 

.BYT 

0,0,0,2,170,255,254, 

174 





3AC3 

00 00 00 

.BYT 

0,0,0,0,170,255,170, 





3ACB 

00 00 00 

.BYT 

Q 

0,0,0,0,170,255,170, 





3AD3 

00 00 00 

.BYT 

Q 

0,0,0,0,170,254,170, 





3ADB 

14 15 15 

.BYT 

Q 

20,21,21,21,85,84,8 

0,0 





3AE3 

55 40 45 

.BYT 

85,64,69,81,84,64,2 

1,0 

85,81,68,64,68,68,8 





3AEB 

55 51 44 

.BYT 





5,0 

3AF3 

55 45 45 

.BYT 

85,69,69,69,69,64,8 

50 





3AFB 

55 40 44 

.BYT 

85,64,68,68,68,64,8 

5,0 







Prisonball 

Source code by Kevin Mykytyn 


0801 


*= 

2049 

0847 

AD FC 02 

LDA 

BALLH 





084A 

8D FB 02 

STA 

BALLL 

; prison bail 



084D 

20 C3 0B 

JSR 

MOVBALLS 





0850 

20 9B09 

JSR 

COLLISION 

0801 

DELX 

= 

703 

0853 

20 El FF NOBALL 

JSR 

$FFE1 

0801 

DELY 

= 

711 

0856 

DO D9 

BNE 

MAIN 

0801 

XPOS 

= 

719 

0858 

AD 00 DCWTBT 

LDA 

$DCOO 

0801 

XPOSH 

= 

727 

085B 

2D 01 DC 

AND 

$0001 

0801 

YPOS 

= 

735 

085E 

29 10 

AND 

#16 

0801 

YP0SL 

= 

743 

0860 

DO F6 

BNE 

WTBT 

0801 

XPOSL 

= 

751 

0862 

4C31 08 

JMP 

MAIN 

0801 

HIGHX1 

= 

760 

J 




0801 

HIGHX2 

= 

761 

; the game is over 



0801 

HIGHY 

= 

762 

• 




0801 

BALLL 

= 

763 

0865 

GAMEOVER 

= 

* 

0801 

BALLH 

= 

764 

0865 

AD 00 DC DEBOUNCE 

LDA 

56320 

0801 

J0YL 

= 

765 

0868 

2D 01 DC 

AND 

56321 

0801 

J0YH 

=5 

766 

086B 

29 IF 

AND 

#31 

0801 

MSB 

=X 

2 

086D 

C9 IF 

CMP 

#31 

0801 

TEMP 

=> 

6 

086F 

DO F4 

BNE 

DEBOUNCE 

0801 

TOPLIMIT 

= 

59 

0871 

A9B0 

LDA 

#176 

0801 

BOTUMIT 

= 

220 

0873 

8D 14 04 

STA 

1044 

0801 

TOP 

= 

49 

0876 

8D 16 04 

STA 

1046 

0801 

BOT 

= 

229 

0879 

8D 17 04 

STA 

1047 

0801 

LEFT 

= 

20 

087C 

A9 03 

LDA 

#3 

0801 

RIGHT 

= 

68 

087E 

8D 15 DO 

STA 

53269 

0801 

TOPEDGE 

= 

87 

0881 

A2 18 

LDX 

#24 

0801 

BOTEDGE 

= 

190 

0883 

AO OC 

LDY 

#12 

0801 

BORDER 

= 

0 

0885 

18 

CLC 


0801 

BACKGROUN 

= 

11 

0886 

20 FO FF 

JSR 

$FFFO 

0801 

WALLCOLOR 

= 

15 

0889 

A9 7F 

LDA 

#<MESS3 

0801 

FREEO 

= 

251 

088B 

AO OF 

LDY 

#>MESS3 

0801 

COLORO 

= 

253 

088D 

20 IE AB 

JSR 

$AB1E 

0801 

COLOR 

= 

249 

0890 

78 

SEI 


0801 

PFLAG 

= 

247 

0891 

A9 00 

LDA 

#0 

0801 

LEFTPAD 

= 

27 

0893 

85 C6 

STA 

198 

0801 

RIGHTPAD 

= 

61 

0895 

AD 00 DC WTBUT 

LDA 

56320 

0801 

FF FF OA 

.BYTE 

255,255,10,0,158 

0898 

2D 01 DC 

AND 

56321 

0806 

32 30 36 

.ASC 

"2061" 

089B 

29 10 

AND 

#16 

080A 

00 00 00 

.BYTE 

0,0,0 

089D 

FOOB 

BEQ 

JOYPLAY 

0800 

A9 00 BEGIN 

LDA 

#0 

089F 

AD 00 DC 

LDA 

56320 

080F 

80 BA OF 

STA 

FLAG 

08A2 

C9 7F 

CMP 

#127 

0812 

START 

= 

* 

08A4 

FO EF 

BEQ 

WTBUT 

0812 

20 E4 00 

JSR 

SETSPRITE 

08A6 

A9 00 

LDA 

#0 

0815 

20 BB OA 

JSR 

INIT 

08A8 

FO 02 

BEQ 

STORIT 

0818 

20 CAOD 

JSR 

SETRAST 

08AA 

A9 01 JOYPLAY 

LDA 

#1 

081B 

20 16 OE 

JSR 

SETPOS 

08AC 

85 F7 STORIT 

STA 

PFLAG 

081E 

20 39 OE 

JSR 

SETSCREEN 

08AE 

OA 

ASL 


0821 

20 3F09 

JSR 

SCROUT 

08AF 

OA 

ASL 


0824 

AD BA OF 

LDA 

FLAG 

08B0 

OA 

ASL 


0827 

00 08 

BNE 

MAIN 

08B1 

18 

CLC 


0829 

A9 01 

LDA 

#1 

08B2 

69 08 

ADC 

#8 

082B 

80 BA OF 

STA 

FLAG 

08B4 

8D FB 02 

STA 

BALLL 

082E 

4C 65 08 

JMP 

GAMEOVER 

08B7 

8D FC 02 

STA 

BALLH 

0831 

CE FD 02 MAIN 

DEC 

JOYL 

08BA 

58 

CLI 


0834 

DO OC 

BNE 

NOJOY 

08BB 

4C 12 08 

JMP 

START 

0836 

AD FE 02 

LDA 

JOYH 





0839 

8D FD 02 

STA 

JOYL 

; decrement the timer 



083C 

20 E9 OC 

JSR 

JOYSTICK 

; 




083F 

20 BE 08 

JSR 

TICK 

08BE 

TICK 

= 

* 

0842 

CE FB 02 NOJOY 

DEC 

BALLL 

08BE 

A5 A2 

LDA 

162 

0845 

DO OC 

BNE 

NOBALL 

08C0 

C9 3C 

CMP 

#60 


162 





The Source Code 


08C2 

DO 37 

BNE 

N1 

08C4 

A9 00 

LDA 

#0 

08C6 

85 A2 

STA 

162 

08C8 

AD 17 04 

LDA 

1047 

08CB 

C9B0 

CMP 

#176 

08CD 

F0 06 

BEQ 

ZU1 

08CF 

CE 17 04 

DEC 

1047 

08D2 

4C FB 08 

JMP 

N1 

08D5 

A9 B9 ZU1 

LDA 

#185 

08D7 

8D 17 04 

STA 

1047 

08DA 

AD 16 04 

LDA 

1046 

08DD 

C9B0 

CMP 

#176 

08DF 

F0 06 

BEQ 

Z2 

08E1 

CE 16 04 

DEC 

1046 

08E4 

4CFB08 

JMP 

N1 

08E7 

A9 B5 Z2 

LDA 

#181 

08E9 

8D 16 04 

STA • 

1046 

08EC 

AD 14 04 

LDA 

1044 

08EF 

C9B0 

CMP 

#176 

08F1 

DO 05 

BNE 

NDONE 

08F3 

68 

PLA 


08F4 

68 

PLA 


08F5 

4C 65 08 

JMP 

GAMEOVER 

08F8 

CE 14 04 NDONE 

DEC 

1044 

08FB 

AD 14 04 N1 

LDA 

1044 

08FE 

C9B0 

CMP 

#176 

0900 

DO 12 

BNE 

REGCOL 

0902 

AD 16 04 

LDA 

1046 

0905 

C9B2 

CMP 

#178 

0907 

DO OB 

BNE 

REGCOL 

0909 

AD 17 04 

LDA 

1047 

090C 

C9B0 

CMP 

#176 

090E 

DO 04 

BNE 

REGCOL 

0910 

EE 20 DO 

INC 

53280 

0913 

60 

RTS 


0914 

A9 00 RE6C0L 

LDA 

#0 

0916 

8D 20 DO 

STA 

53280 

0919 

60 

RTS 


; add to the score 



091A 

ADDSCORE 

= 

* 

091A 

A6 06 

LDX 

TEMP 

091C 

BD 27 DO 

LDA 

53287.X 

091F 

29 OF 

AND 

#15 

0921 

C9 03 

CMP 

#3 

0923 

FO 19 

BEQ 

NSC 

0925 

AA 

TAX 


0926 

AC B8 OF 

LDY 

SCORED 

0929 

B9 4E OF 

LDA 

SCORES,Y 

092C 

18 

CLC 


092D 

7DB4 0F 

ADC 

SCORE1L.X 

0930 

9DB4 0F 

STA 

SCORE1L.X 

0933 

BD B6 OF 

LDA 

SCORE1H.X 

0936 

69 00 

ADC 

#0 

0938 

9D B6 OF 

STA 

SCORE1H.X 

093B 

20 3F 09 

JSR 

SCROUT 

093E 

60 NSC 

RTS 


; output score 



093F 

SCROUT 

= 

* 

093F 

AO 07 

LDY 

#7 

0941 

AEB5 OF 

LDX 

SCORE2L 

0944 

AD B7 OF 

LDA 

SCORE2H 

0947 

20 56 09 

JSR 

NUMOUT 

094A 

AO 22 

LDY 

#34 

094C 

AE B4 OF 

LDX 

SCORE1L 

094F 

ADB6 OF 

LDA 

SCORE1H 

0952 

20 56 09 

JSR 

NUMOUT 

0955 

60 

RTS 



; output a number 



0956 

NUMOUT 

= 

* 

0956 

8C B9 OF 

STY 

INDEX 

0959 

86 FB 

STX 

FREEO 

095B 

85 FC 

STA 

FREEO+1 

095D 

A2 08 

LDX 

#8 

095F 

AO FF NUMLOOP1 

LDY 

#255 

0961 

08 SUBAGAIN 

INY 


0962 

A5FB 

LDA 

FREEO 

0964 

48 

PHA 


0965 

38 

SEC 


0966 

FD 91 09 

SBC 

DIGITS,X 

0969 

85 FB 

STA 

FREEO 

096B 

A5FC 

LDA 

FREEO+1 

096D 

48 

PHA 


096E 

FD 92 09 

SBC 

DIGITS+1,X 

0971 

85 FC 

STA 

FREEO+1 

0973 

90 05 

BCC 

DONESUB 

0975 

68 

PLA 


0976 

68 

PLA 


0977 

4C 61 09 

JMP 

SUBAGAIN 

097A 

68 DONESUB 

PLA 


097B 

85 FC 

STA 

FREEO+1 

097D 

68 

PLA 


097E 

85 FB 

STA 

FREEO 

0980 

98 

m 


0981 

09 BO 

ORA 

#176 

0983 

ACB9 0F 

LDY 

INDEX 

0986 

99 00 04 

STA 

1024,Y 

0989 

EE B9 OF 

INC 

INDEX 

098C 

CA 

DEX 


098D 

CA 

DEX 


098E 

10 CF 

BPL 

NUML00P1 

0990 

60 

RTS 


0991 

01 00 OA DIGITS 

.WORD 1,10,100,1000,100 
00 


collision 


099B 

COLLISION 

_ 

* 

099B 

A2 04 

LDX 

#4 

099D 

86 06 COLLI 

STX 

TEMP 

099F 

BD DF 02 

LDA 

YPOS.X 

09A2 

38 

SEC 


09A3 

E9 2A 

SBC 

#42 

09A5 

29 F8 

AND 

#248 

09A7 

48 

PHA 


09A8 

85 FB 

STA 

FREEO 

09AA 

A9 00 

LDA 

#0 

09AC 

85 FC 

STA 

FREEO+1 

09AE 

06 FB 

ASL 

FREEO 

09B0 

26 FC 

ROL 

FREEO+1 

09B2 

06 FB 

ASL 

FREEO 

09B4 

26 FC 

ROL 

FREEO+1 

09B6 

68 

PLA 


09B7 

18 

CLC 


09B8 

65 FB 

ADC 

FREEO 

09BA 

85 FB 

STA 

FREEO 

09BC 

A5FC 

LDA 

FREEO+1 

09BE 

69 00 

ADC 

#0 

09C0 

85 FC 

STA 

FREEO+1 

09C2 

BD D7 02 

LDA 

XPOSH.X 

09C5 

85 FE 

STA 

CGLORO+1 

09C7 

BD CF 02 

LDA 

XPOS.X 

09CA 

85 FD 

STA 

COLORO 

09CC 

AO 03 

LDY 

#3 

OSCE 

46 FE DIV 

LSR 

COLORO+1 

09D0 

66 FD 

ROR 

COLORO 

09D2 

88 

DEY 


09D3 

DO F9 

BNE 

DIV 

09D5 

A5FD 

LDA 

COLORO 






Chapter 3 


09D7 

38 

SEC 


0A63 

20 65 OC 

JSR 

REVX 

09D8 

E9 02 

SBC 

#2 

0A66 

4C 6B OA 

JMP 

NEXT 

09DA 

85 FD 

STA 

COLORO 

0A69 

A6 06 NOG 

LDX 

TEMP 

OSDC 

A5FE 

LDA 

COLORO+1 

0A6B 

CA NEXT 

DEX 


09DE 

E9 00 

SBC 

#0 

0A6C 

EO 01 

CPX 

#1 

09E0 

85 FE 

STA 

COLORO+1 

0A6E 

FO 03 

BEQ 

FINCOLL 

09E2 

A5FB 

LDA 

FREEO 

0A70 

4C 9D09 

JMP 

COLLI 

09E4 

18 

CLC 


0A73 

60 FINCOLL 

RTS 


09E5 

65 FD 

ADC 

COLORO 

; 




09E7 

85 FB 

STA 

FREEO 

; click sound 



09E9 

A5FC 

LDA 

FREEO+1 

; 




09EB 

65 FE 

ADC 

COLORO+1 

0A74 

CLICK 

= 

* 

09ED 

85 FC 

STA 

FREEO+1 

0A74 

48 

PHA 


09EF 

A5FC 

LDA 

FREEO+1 

0A75 

8A 

TXA 


09F1 

18 

CLC 


0A76 

38 

SEC 


09F2 

69 D8 

ADC 

#$D8 

0A77 

E9 02 

SBC 

#2 

09F4 

85 FC 

STA 

FREEO+1 

0A79 

A8 

TAY 


09F6 

AO 00 

LDY 

#0 

0A7A 

B9 B8 OA 

LDA 

SEVENS,Y 

09F8 

B1 FB 

LDA 

(FREEO),Y 

0A7D 

A8 

TAY 

09FA 

29 OF 

AND 

#15 

0A7E 

A9 IE 

LDA 

#30 

09FC 

A2 03 

LDX 

#3 

0A80 

99 01 D4 

STA 

54273,Y 

09FE 

CA COMP 

DEX 


0A83 

A9 11 

LDA 

#17 

09FF 

30 68 

BMI 

NOG 

0A85 

99 05 D4 

STA 

54277,Y 

0A01 

DD40 OF 

CMP 

COLORS.X 

0A88 

A9 80 

LDA 

#128 

0A04 

DO F8 

BNE 

COMP 

0A8A 

99 04 D4 

STA 

54276.Y 

0A06 

8E B8 OF 

STX 

SCORED 

0A8D 

A9 81 

LDA 

#129 

0A09 

A5FC 

LDA 

FREEO+1 

0A8F 

99 04 D4 

STA 

54276,Y 

OAOB 

38 

SEC 


0A92 

68 

PLA 

OAOC 

E9 D4 

SBC 

#$D4 

0A93 

60 

RTS 


OAOE 

85 FC 

STA 

FREEO+1 





OAIO 

B1 FB 

LDA 

(FREEO),Y 

; bong sound 



0A12 

A2 03 

LDX 

#3 

; 




0A14 

CA C0MP2 

DEX 


0A94 

BONG 

== 

* 

0A15 

30 52 

BMI 

NOG 

0A94 

48 

PHA 


0A17 

DD45 OF 

CMP 

BRICKS,X 

0A95 

8A 

TXA 


OA1A 

DO F8 

BNE 

C0MP2 

0A96 

38 

SEC 


OA1C 

8A 

TXA 


0A97 

E9 02 

SBC 

#2 

OA1D 

OA 

ASL 


0A99 

A8 

TAY 


OA1E 

A8 

TAY 


0A9A 

B9 B8 OA 

LDA 

SEVENS,Y 

OA1F 

A6 06 

LDX 

TEMP 

0A9D 

A8 

TAY 

0A21 

A5FD 

LDA 

COLORO 

0A9E 

68 

PLA 


0A23 

38 

SEC 


0A9F 

OA 

ASL 


0A24 

E9 0B 

SBC 

#11 

OAAO 

OA 

ASL 


0A26 

4A 

LSR 


0AA1 

OA 

ASL 


0A27 

4A 

LSR 


0AA2 

18 

CLC 


0A28 

DD96 0F 

CMP 

SWL,X 

0AA3 

69 OA 

ADC 

#10 

0A2B 

FO 3C 

BEQ 

NOG 

0AA5 

99 01 D4 

STA 

54273,Y 

0A2D 

9D 96 OF 

STA 

SWL.X 

0AA8 

A9 13 

LDA 

#19 

0A30 

BD BF 02 GOON 

LDA 

DELX,X 

OAAA 

99 05 D4 

STA 

54277,Y 

0A33 

10 01 

BPL 

FNE 

OAAD 

A9 20 

LDA 

#32 

0A35 

C8 

INY 


OAAF 

99 04 D4 

STA 

54276,Y 

0A36 

B9 48 OF FNE 

LDA 

RESULTBRICK.Y 

0AB2 

A9 21 

LDA 

#33 

0A39 

AO 00 

LDY 

#0 

0AB4 

99 04 D4 

STA 

54276,Y 

0A3B 

91 FB 

STA 

(FREEO),Y 

0AB7 

60 

RTS 

0A3D 

20 74 OA 

JSR 

CLICK 

0AB8 

00 07 OE SEVENS 

.BYTE 

0,7,14 

0A40 

C9 20 

CMP 

#32 

• 



0A42 

D01A 

BNE 

NOCOUNT 

; initialize 



0A44 

A5FD 

LDA 

COLORO 





0A46 

38 

SEC 


OABB 

INIT 

= 

* 

0A47 

E9 0B 

SBC 

#11 

OABB 

A9 00 

LDA 

#0 

0A49 

4A 

LSR 


OABD 

AO 17 

LDY 

#23 

0A4A 

4A 

LSR 


OABF 

99 00 D4 CLSID 

STA 

54272,Y 

0A4B 

AA 

TAX 


0AG2 

88 

DEY 

0A4C 

FE AAOF 

INC 

COUNTERS,X 

0AC3 

10 FA 

BPL 

CLSID 

0A4F 

BD AA OF 

LDA 

COUNTERS,X 

0AC5 

A9 OF 

LDA 

#15 

0A52 

C9 2E 

CMP 

#46 

0AC7 

8D 18 D4 

STA 

54296 

0A54 

DO 08 

BNE 

NOCOUNT 

OACA 

A9 FF 

LDA 

#255 

0A56 

A9 00 

LDA 

#0 

OACC 

8D OF D4 

STA 

54287 

0A58 

9D AAOF 

STA 

COUNTERS,X 

OACF 

A9 80 

LDA 

#128 

OA5B 

20 9C OC 

JSR 

DRMBAR 

0AD1 

8D 12 D4 

STA 

54290 

0A5E 

20 1A 09 NOCOUNT 

JSR 

ADDSCORE 

0AD4 

A9 14 

LDA 

#20 

0A61 

A6 06 

LDX 

TEMP 

0AD6 

8D FD 02 

STA 

JOYL 






The Source Code 


0AD9 

8D FE 02 

STA 

JOYH 

0B69 

BD BF 02 RIPAD 

LDA 

DELX.X 

OADC 

A9 00 

LDA 

#0 

0B6C 

30 FA 

BMI 

NOTLEFT 

OADE 

85 A2 

STA 

162 

0B6E 

BD CF 02 

LDA 

XPOS.X 

OAEO 

AO 04 

LDY 

#4 

0B71 

C9 3D 

CMP 

#RIGHTFAD 

0AE2 

99 AA OF Z1 

STA 

COUNTERS,Y 

0B73 

FO 04 

BEQ 

MAYBE2 

0AE5 

99 B4 0F 

STA 

SC0RE1L.Y 

0B75 

C9 13 

CMP 

#RIGHTFAD-42 

0AE8 

88 

DEY 


0B77 

DO EF 

BNE 

NOTLEFT 

0AE9 

10 F7 

BPL 

Z1 

0B79 

AD EO 02 MAYBE2 

LDA 

YPOS+1 

OAEB 

AO 02 

LDY 

#2 

0B7C 

38 

SEC 


OAED 

A2 4B WP 

LDX 

#75 

0B7D 

FD DF 02 

SBC 

YPOS.X 

OAEF 

AD IB D4 

LDA 

$D41B 

0B80 

C9 F5 

CMP 

#245 

0AF2 

10 02 

BPL 

NOD 

0B82 

BO 04 

BCS 

HITFAD2 

0AF4 

A2B4 

LDX 

#180 

0B84 

C9 OF 

CMP 

#15 

0AF6 

8A NOD 

TXA 


0B86 

BO EO 

BCS 

NOTLEFT 

0AF7 

99 Cl 02 

STA 

DELX+2.Y 

0B88 

20 9C OB HITPAD2 

JSR 

NEWY 

OAFA 

A9 06 

LDA 

#6 

0B8B 

A9 00 

LDA 

#0 

OAFC 

99 98 OF 

STA 

SWL+2.Y 

0B8D 

9D 27 DO 

STA 

53287.X 

OAFF 

88 

DEY 


OBOO 

20 94 OA 

JSR 

BONG 

OBOO 

10 EB 

BPL 

WP 

0B93 

A9 14 NOY 

LDA 

#20 

0B02 

60 

RTS 


0B95 

9D96 OF 

STA 

SWL.X 





0B98 

20 65 OC 

JSR 

REVX 

see if 

ball should wrap 



0B9B 

60 

RTS 






0B9C 

C9 00 NEWY 

CMP 

#0 

0B03 

WRAP 

= 

* 

0B9E 

DO OB 

BNE 

HANDLE 

0B03 

BD D7 02 N0DEC2 

LDA 

XPOSH.X 

OBAO 

AD 04 DC 

LDA 

56324 

0B06 

DO 17 

BNE 

RI3 

0BA3 

10 04 

BPL 

PLUS 

0B08 

BD CF 02 

LDA 

XPOS.X 

0BA5 

A9 FF 

LDA 

#255 

OBOB 

C9 0A 

CMP 

#10 

0BA7 

DO 02 

BNE 

HANDLE 

OBOD 

DO 26 

BNE 

NOWRAP 

0BA9 

A9 01 PLUS 

LDA 

#1 

OBOF 

A9 14 

LDA 

#20 

OBAB 

20 AB OE HANDLE 

JSR 

NEGATE 

0B11 

9D 96 0F 

STA 

SWL.X 

OBAE 

08 

PHP 


OBI 4 

A9 4D 

LDA 

#77 

OBAF 

10 03 

BPL 

FE1 

OBI 6 

9D CF 02 

STA 

XPOS.X 

0BB1 

20 AB OE 

JSR 

NEGATE 

OBI 9 

A9 01 

LDA 

#1 

0BB4 

OA FE1 

ASL 


0B1B 

9D D7 02 

STA 

XPOSH.X 

0BB5 

OA 

ASL 


OB1E 

60 

RTS 


0BB6 

18 

CLC 


OB1F 

BD CF 02 RI3 

LDA 

XPOS.X 

0BB7 

69 OA 

ADC 

#10 

0B22 

C9 4E 

CMP 

#78 

0BB9 

28 

PLP 


0B24 

DO OF 

BNE 

NOWRAP 

OBBA 

10 03 

BPL 

FE2 

0B26 

A9 14 

LDA 

#20 

OBBC 

20 AB OE 

JSR 

NEGATE 

0B28 

9D 96 OF 

STA 

SA/L.X 

OBBF 

9D C7 02 FE2 

STA 

DELY.X 

0B2B 

A9 0B 

LDA 

#11 

0BC2 

60 

RTS 

0B2D 

9D CF 02 

STA 

XPOS.X 

j 




0B30 

A9 00 

LDA 

#0 

; move 

the balls 



0B32 

9D D7 02 

STA 

XPOSH.X 

; 




0B35 

60 NOWRAP 

RTS 


0BC3 

MOVBALLS 

= 

* 





0BC3 

A2 04 

LDX 

#4 

see if 

hit paddles 



0BC5 

20 03 OB M0V1 

JSR 

WRAP 




0BC8 

20 17 OC 

JSR 

ADDX 

0B36 

HITRADDLE 

= 

* 

OBCB 

20 45 OC 

JSR 

ADDY 

0B36 

BD D7 02 

LDA 

XPOSH.X 

OBCE 

C9 31 

CMP 

#TOP 

0B39 

D0 2E 

BNE 

RIPAD 

OBDO 

FO 04 

BEQ 

DOREVY 

0B3B 

BD BF 02 

LDA 

DELX.X 

0BD2 

C9E5 

CMP 

#BGT 

0B3E 

10 28 

BPL 

NOTLEFT 

0BD4 

DO 03 

BNE 

DONTREVY 

0B40 

BD CF 02 

LDA 

XPOS.X 

0BD6 

20 83 OC DOREVY 

JSR 

REVY 

0B43 

C9 IB 

CMP 

#LEFTRAD 

0BD9 

BD BF 02 DONTREVY 

LDA 

DELX.X 

0B45 

FO 04 

BEQ 

MAYBE1 

OBDC 

10 OE 

BPL 

RIGHTSIDE 

0B47 

C9 45 

CMP 

#LEFTB\D+42 

OBDE 

BD CF 02 

LDA 

XPOS.X 

0B49 

DO ID 

BNE 

NOTLEFT 

0BE1 

C9 14 

CMP 

#LEFT 

0B4B 

AD DF 02 MAYBE1 

LDA 

YPOS 

0BE3 

DO 26 

BNE 

DONTREVX 

0B4E 

38 

SEC 


0BE5 

BD D7 02 

LDA 

XPOSH.X 

0B4F 

FD DF 02 

SBC 

YPOS.X 

0BE8 

DO 21 

BNE 

DONTREVX 

0B52 

C9 F5 

CMP 

#245 

OBEA 

FO OC 

BEQ 

DOREVX 

0B54 

BO 04 

BCS 

HITPAD1 

OBEC 

BD CF 02 RIGHTSIDE 

LDA 

XPOS.X 

0B56 

C9 OF 

CMP 

#15 

OBEF 

C9 44 

CMP 

#RIGHT 

0B58 

BO OE 

BCS 

NOTLEFT 

0BF1 

DO 18 

BNE 

DONTREVX 

0B5A 

20 9C OB HITFAD1 

JSR 

NEWY 

0BF3 

BD D7 02 

LDA 

XPOSH.X 

0B5D 

A9 01 

LDA 

#1 

0BF6 

FO 13 

BEQ 

DONTREVX 

0B5F 

9D 27 DO 

STA 

53287.X 

0BF8 

BD DF 02 DOREVX 

LDA 

YPOS.X 

0B62 

20 94 OA 

JSR 

BONG 

OBFB 

C9 57 

CMP 

#TOPEDGE 

0B65 

4C 93 OB 

JMP 

NOY 

OBFD 

90 04 

BCC 

D0REVX2 

0B68 

60 NOTLEFT 

RTS 


OBFF 

C9 BE 

CMP 

#B0TEDGE 
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0C01 

90 08 

BCC 

DONTREVX 

0C03 

A9 14 D0REVX2 

LDA 

#20 

0C05 

9D 96 OF 

STA 

SWL.X 

0C08 

20 65 OC 

JSR 

REVX 

OCOB 

20 36 OB DONTREVX 

JSR 

HITPADDLE 

OCOE 

CA 

DEX 


OCOF 

EO 01 

CPX 

#1 

0C11 

FO 03 

BEQ 

0UT1 

0C13 

4C C5 OB 

JMP 

M0V1 

0C16 

60 0UT1 

RTS 


0C17 

AO 00 ADDX 

LDY 

#0 

0C19 

BD BF 02 

LDA 

DELX.X 

0C1C 

10 02 

BPL 

RI1 

0C1E 

AO FF 

LDY 

#255 

0C20 

8C F8 02 RI1 

STY 

HIGHX1 

0C23 

8C F9 02 

STY 

HIGHX2 

0C26 

BD EF 02 

LDA 

XPOSL.X 

0C29 

18 

CLC 

0C2A 

7D BF 02 

ADC 

DELX.X 

0C2D 

9D EF 02 

STA 

XPOSL.X 

0C30 

BD CF 02 

LDA 

XPOS.X 

0C33 

6D F8 02 

ADC 

HIGHX1 

0C36 

9D CF 02 

STA 

XPOS.X 

0C39 

BD D7 02 

LDA 

XPOSH.X 

0C3C 

29 01 

AND 

#1 

0C3E 

6D F9 02 

ADC 

HIGHX2 

0C41 

9D D7 02 

STA 

XPOSH.X 

0C44 

60 

RTS 


0C45 

AO 00 ADDY 

LDY 

#0 

0C47 

BD C7 02 

LDA 

DELY.X 

0C4A 

10 02 

BPL 

D01 

0C4C 

AO FF 

LDY 

#255 

0C4E 

8C FA 02 D01 

STY 

HIGHY 

0C51 

BD E7 02 

LDA 

YPOSL.X 

0C54 

18 

CLC 


0C55 

7D C7 02 

ADC 

DELY.X 

0C58 

9D E7 02 

STA 

YPOSL.X 

0C5B 

BD DF 02 

LDA 

YPOS.X 

0C5E 

6DF* 02 

ADC 

HIGHY 

0C61 

9D DF 02 

STA 

YPOS.X 

0C64 

60 

RTS 



reverse the x direction 


0C65 

REVX 

_ 


0C65 

BD BF 02 

LDA 

DELX.X 

0C68 

20 AB OE 

JSR 

NEGATE 

0C6B 

9D BF 02 

STA 

DELX.X 

0C6E 

BD CF 02 

LDA 

XPOS.X 

0C71 

85 06 

STA 

TEMP 

0C73 

20 17 OC WAIT1 

JSR 

ADDX 

0C76 

BD CF 02 

LDA 

XPOS.X 

0C79 

C5 06 

CMP 

TEMP 

0C7B 

FO F6 

BEQ 

WNT1 

0C7D 

20 17 OC 

JSR 

ADDX 

0C80 

4C 17 OC 

JMP 

ADDX 


reverse the y direction 


0C83 

REVY 

_ 

* 

0C83 

BD C7 02 

LDA 

DELY.X 

0C86 

20 AB OE 

JSR 

NEGATE 

0C89 

9D C7 02 

STA 

DELY.X 

0C8C 

BD DF 02 

LDA 

YPOS.X 

0C8F 

85 06 

STA 

TEMP 

0C91 

20 45 OC WAIT2 

JSR 

ADDY 

0C94 

BD DF 02 

LDA 

YPOS.X 

0C97 

C5 06 

CMP 

TEMP 

0C99 

FO F6 

BEQ 

WAIT2 

0C9B 

60 

RTS 


; draw a bar 




; x bar number 



0C9C 

DRAWBAR 

= 

* 

0C9C 

8A 

TXA 


0C9D 

48 

PHA 


0C9E 

A9 33 

LDA 

#<1075 

OCAO 

85 FB 

STA 

FREEO 

0CA2 

A9 33 

LDA 

#<1075+54272 

0CA4 

85 FD 

STA 

COLORO 

0CA6 

A9 04 

LDA 

#>1075 

0CA8 

85 FC 

STA 

FREEO+1 

OCAA 

A9 D8 

LDA 

#>1075+54272 

OCAC 

85 FE 

STA 

COLORO+1 

OCAE 

8A 

TXA 


OCAF 

OA 

ASL 


OCBO 

OA 

ASL 


0CB1 

A8 

TAY 


0CB2 

BD 40 OF 

LDA 

COLORS.X 

0CB5 

85 F9 

STA 

COLOR 

0CB7 

A2 16 

LDX 

#22 

0CB9 

A9 AO DR1 

LDA 

#160 

OCBB 

91 FB 

STA 

(FREEO),Y 

OCBD 

C8 

INY 

OCBE 

91 FB 

STA 

(FREEO),Y 

OCCO 

88 

DEY 

0CC1 

A5F9 

LDA 

COLOR 

0CC3 

91 FD 

STA 

(COLORO),Y 

0CC5 

C8 

INY 

0CC6 

91 FD 

STA 

(COLORO),Y 

0CC8 

88 

DEY 

0CC9 

A5FB 

LDA 

FREEO 

OCCB 

18 

CLC 


OCCC 

69 28 

ADC 

#40 

OCCE 

85 FB 

STA 

FREEO 

OCDO 

A5 FC 

LDA 

FREEO+1 

0CD2 

69 00 

ADC 

#0 

0CD4 

85 FC 

STA 

FREEO+1 

0CD6 

A5 FD 

LDA 

COLORO 

0CD8 

18 

CLC 


0CD9 

69 28 

ADC 

#40 

OCDB 

85 FD 

STA 

COLORO 

OCDD 

A5 FE 

LDA 

COLORO+1 

OCDF 

69 00 

ADC 

#0 

0CE1 

85 FE 

STA 

COLORO+1 

0CE3 

CA 

DEX 


0CE4 

10 D3 

BPL 

DR1 

0CE6 

68 

PLA 


0CE7 

AA 

TAX 


0CE8 

60 

RTS 



joystick routine 


0CE9 

JOYSTICK 

= 

* 

0CE9 

A5 F7 

LDA 

PFLAG 

OCEB 

FO 26 

BEQ 

RUDDLES 

OCED 

A2 01 

LDX 

#1 

OCEF 

BD 00 DC JOYLOOP 

LDA 

$DCOO,X 

0CF2 

4A 

LSR 

0CF3 

BO OD 

BCS 

NOTUP 

0CF5 

BD DF 02 

LDA 

YPOS.X 

0CF8 

C9 3B 

CMP 

#TOPLIMIT 

OCfA 

FO 13 

BEQ 

NOGO 

OCFC 

DE DF 02 

DEC 

YPOS.X 

OCFF 

4C OF OD 

JMP 

NOGO 

0002 

4A NOTUP 

LSR 


0D03 

BO OA 

BCS 

NOGO 

0D05 

BD DF 02 

LDA 

YPOS.X 

0DO8 

C9 DC 

CMP 

#B0TLIMIT 

ODOA 

FO 03 

BEQ 

NOGO 

ODOC 

FE DF 02 

INC 

YPOS.X 

ODOF 

CA NOGO 

DEX 

0D10 

10 DD 

BPL 

JOYLOOP 
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0012 60 RTS 


paddle read routine 


0D13 

FADDLES 

_ 

* 

0D13 

78 

SEI 


0D14 

AD 02 DC 

LDA 

$DC02 

0D17 

48 

PHA 


0D18 

A9C0 

LDA 

#$C0 

0D1A 

8D 02 DC 

STA 

$DC02 

0D1D 

A9 80 

LDA 

#$80 

0D1F 

8D00 DC 

STA 

$DCOO 

0D22 

AO 80 

LDY 

#$80 

0D24 

EA DELK 

NOP 


0D25 

88 

DEY 


0D26 

DO FC 

BNE 

DELK 

0D28 

A2 01 

LDX 

#1 

0D2A 

BD 19 D4 PLOP 

LDA 

$D419,X 

0D2D 

C9 3B 

CMP 

#7DPLIMIT 

0D2F 

BO 04 

BCS 

N01 

0D31 

A9 3B 

LDA 

#TOPLIMIT 

0D33 

DO 06 

BNE 

N02 

0D35 

C9 DC N01 

CMP 

#BOTLIMIT 

0D37 

90 02 

BCC 

N02 

0D39 

A9 DC 

LDA 

#B0m_IMIT 

0D3B 

48 N02 

PHA 


0D3C 

8A 

TXA 


0D3D 

OA 

ASL 


0D3E 

OA 

ASL 


0D3F 

OA 

ASL 


0D40 

18 

CLC 


0D41 

69 BD 

ADC 

#<STACK 

0D43 

85 FB 

STA 

FREEO 

0D45 

A9 OF 

LDA 

#>STACK 

0D47 

69 00 

ADC 

#0 

0D49 

85 FC 

STA 

FREEO+1 

0D4B 

BD BB OF 

LDA 

STACKPT.X 

0D4E 

A8 

TAY 


0D4F 

68 

PLA 


0D50 

91 FB 

STA 

(FREEO),Y 

0D52 

CO 07 

CPY 

#7 

0D54 

DO 07 

BNE 

NOTOP 

0D56 

A9 00 

LDA 

#0 

0D58 

9D BB OF 

STA 

STACKPT.X 

0D5B 

FO 03 

BEQ 

SKIPINC 

0D5D 

FE BB OF NCfTOP 

INC 

STACKPT.X 

0D60 

A9 00 SKIPINC 

LDA 

#0 

0D62 

85 FD 

STA 

COLORO 

0D64 

85 FE 

STA 

COLQRO+1 

0D66 

AO 07 

LDY 

#7 

0D68 

A5 FD ADDLOOP 

LDA 

COLORO 

0D6A 

18 

CLC 


0D6B 

71 FB 

ADC 

(FREEO),Y 

0D6D 

85 FD 

STA 

COLORO 

0D6F 

A5FE 

LDA 

COLORO+1 

0D71 

69 00 

ADC 

#0 

0D73 

85 FE 

STA 

COLORO+1 

0D75 

88 

DEY 


0D76 

10 FO 

BPL 

ADDLOOP 

0D78 

A5FD 

LDA 

COLORO 

0D7A 

46 FE 

LSR 

COLORO+1 

0D7C 

6A 

ROR 


0D7D 

46 FE 

LSR 

COLORO+1 

0D7F 

6A 

ROR 


0D80 

46 FE 

LSR 

COLORO+1 

0D82 

6A 

ROR 


0083 

9D DF 02 

STA 

YPOS.X 

0D86 

CA 

DEX 


0D87 

10 A1 

BPL 

PLOP 

0D89 

68 

PLA 


0D8A 

8D 02 DC 

STA 

$DC02 

0D8D 

58 

CLI 



0D8E 60 RTS 


sprite movement routine 


0D8F 

SPRMOV 

= 

* 

0D8F 

A9 01 

LDA 

#1 

0D91 

8D 19 DO 

STA 

$0019 

0D94 

A2 0E 

LDX 

#14 

0D96 

AO 07 

LDY 

#7 

0D98 

A9 00 

LDA 

#0 

0D9A 

85 02 

STA 

MSB 

0D9C 

B9 CF 02 SPRLOOP 

LDA 

XPOS.Y 

0D9F 

9D00 DO 

STA 

53248.X 

0DA2 

B9 DF 02 

LDA 

YPOS.Y 

0DA5 

9D01 DO 

STA 

53249.X 

0DA8 

B9 D7 02 

LDA 

XPOSH.Y 

ODAB 

4A 

LSR 


ODAC 

26 02 

ROL 

MSB 

ODAE 

CA 

DEX 


ODAF 

CA 

DEX 


ODBO 

88 

DEY 


0DB1 

10 E9 

BPL 

SPRLOOP 

0DB3 

A5 02 

LDA 

MSB 

0DB5 

8D 10 DO 

STA 

53264 

0DB8 

A9 FA 

LDA 

#250 

ODBA 

8D12 DO 

STA 

$D012 

ODBD 

AD OD DC 

LDA 

$DCOD 

ODCO 

29 01 

AND 

#1 

0DC2 

FO 03 

BEQ 

SKIP 

0DC4 

4C31 EA 

JMP 

$EA31 

0DC7 4C BC FE SKIP 

set up raster interrupt 

JMP 

$FEBC 

ODCA 

SETRAST 

= 

* 

ODCA 

A9 7F 

LDA 

#127 

ODCC 

8D OD DC 

STA 

56333 

ODCF 

A9 8F 

LDA 

#<SPRMOV 

ODDI 

8D 14 03 

STA 

$0314 

0DD4 

A9 0D 

LDA 

#>SPRMOV 

0DD6 

8D 15 03 

STA 

$0315 

0DD9 

A9 IB 

LDA 

#27 

ODDB 

8D11 DO 

STA 

53265 

ODDE 

A9 81 

LDA 

#129 

ODEO 

8D 1A DO 

STA 

53274 

0DE3 60 

set up sprites 

RTS 


0DE4 

SETSPRITE 

=3 

* 

0DE4 

A0 7F 

LDY 

#127 

0DE6 

B9 81 OE SL00P1 

LDA 

SPRDAT.Y 

0DE9 

99 40 03 

STA 

832,Y 

ODEC 

88 

DEY 


ODED 

10 F7 

BPL 

SL00P1 

ODEF 

A9 0E 

LDA 

#14 

0DF1 

8D F8 07 

STA 

2040 

0DF4 

8D F9 07 

STA 

2041 

0DF7 

A9 0D 

LDA 

#13 

0DF9 

AO 02 

LDY 

#2 

ODFB 

99 FA 07 SL00P2 

STA 

2042,Y 

ODFE 

88 

DEY 


ODFF 

10 FA 

BPL 

SLQ0P2 

0E01 

A9 1F 

LDA 

#31 

0E03 

8D 15 DO 

STA 

53269 

0E06 

A9 03 

LDA 

#3 

0E08 

80 ID DO 

STA 

53277 

OEOB 

A2 02 

LDX 

#2 

OEOD 

A9 32 LP 

LDA 

#50 

OEOF 

9D C9 02 

STA 

DELY+2.X 

0E12 

CA 

DEX 


0E13 

10 F8 

BPL 

LP 
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0E15 

60 

RTS 


OEAA 

60 

RTS 

; set paddle position 



; negate a number 


0E16 

SETPOS 

= 

* 

OEAB 

NEGATE 

_ 

0E16 

AO 04 

LDY 

#4 

OEAB 

49 FF 

EOR 

0E18 

B9 31 OF SETLOOP 

LDA 

XPOST.Y 

OEAD 

18 

CLC 

0E1B 

99 CF 02 

STA 

XPOS.Y 

OEAE 

69 01 

ADC 

0E1E 

B9 36 OF 

LDA 

XPOSHT.Y 

OEBO 

60 

RTS 

0E21 

99 D7 02 

STA 

XPOSH.Y 

• 



0E24 

B9 3B OF 

LDA 

YPOST.Y 

; sprite data 


0E27 

99 DF 02 

STA 

YPOS.Y 




0E2A 

B9 34 0E 

LDA 

SPRCOLOR,Y 

0EB1 

00 00 00 SPRDAT 

.BYTE 

0E2D 

99 27 DO 

STA 

53287,Y 

0EB9 

00 00 00 

.BYTE 

0E30 

88 

DEY 


0EC1 

00 00 00 

.BYTE 

0E31 

10 E5 

BPL 

SETLOOP 

0EC9 

00 00 00 

.BYTE 

0E33 

60 

RTS 


0ED1 

00 00 3C 

.BYTE 

0E34 

01 00 03 SPRCOLOR 

.BYTE 

1,0,3,3,3 

0ED9 

00 00 00 

.BYTE 

j 




0EE1 

00 00 00 

.BYTE 

; set up screen 



0EE9 

00 00 00 

.BYTE 

1 




0EF1 

CO 00 03 

.BYTE 

0E39 

SETSCREEN 

= 

* 




0E39 

A9 93 

LDA 

#"{CLR}" 

0EF9 

03 CO 00 

.BYTE 

0E3B 

20 D2 FF 

JSR 

$FFD2 




0E3E 

A9 0B 

LDA 

#BACKGROUND 

0F01 

00 03 CO 

.BYTE 

0E40 

8D 21 DO 

STA 

53281 

0F09 

CO 00 03 

.BYTE 

0E43 

A9 00 

LDA 

#BORDER 




0E45 

8D 20 DO 

STA 

53280 

0F11 

03 CO 00 

.BYTE 

0E48 

AO 27 

LDY 

#39 




0E4A 

A9 AO SI 

LDA 

#160 

0F19 

00 03 CO 

.BYTE 

0E4C 

99 00 04 

STA 

1024,Y 

0F21 

CO 00 03 

.BYTE 

0E4F 

99 CO 07 

STA 

1984,Y 




0E52 

A9 OF 

LDA 

#WALLCOLOR 

0F29 

03 CO 00 

.BYTE 

0E54 

99 00 D8 

STA 

55296,Y 

0F31 

21 IF OC XPOST 

.BYTE 

0E57 

99 CO DB 

STA 

56256,Y 

0F36 

00 01 00 XPOSHT 

.BYTE 

0E5A 

88 

DEY 


0F3B 

82 82 82 YPOST 

.BYTE 

0E5B 

10 ED 

BPL 

SI 




0E5D 

A0C8 

LDY 

#200 

0F40 

OA 03 OD COLORS 

.BYTE 

0E5F 

A9 AO S2 

LDA 

#160 

0F45 

AO El 61 BRICKS 

.BYTE 

0E61 

99 00 04 

STA 

1024,Y 

0F48 

El 61 20 RESULTBRI 

.BYTE 

0E64 

99 27 04 

STA 

1063,Y 

0F4E 

OA 14 IE SCORES 

.BYTE 

0E67 

99 F8 06 

STA 

1784,Y 

0F51 

9B 12 53 TITLE1 

.ASC 

0E6A 

99 IF 07 

STA 

1823,Y 




0E6D 

A9 OF 

LDA 

#WALLCOLOR 




0E6F 

99 00 D8 

STA 

1024+ 54272,Y 




0E72 

99 27 D8 

STA 

1063 +54272,Y 

0F73 

00 

.BYTE 

0E75 

99 F8 DA 

STA 

1784+54272,Y 

0F74 

50 52 49 TFTLE2 

.ASC 

0E78 

99 IF DB 

STA 

1823+54272,Y 

0F7E 

00 

.BYTE 

0E7B 

98 

m 


0F7F 

50 52 45 MESS3 

.ASC 

0E7C 

38 

SEC 





0E7D 

E9 28 

SBC 

#40 

0F8F 

00 

.BYTE 

0E7F 

A8 

TAY 


0F90 

SM. 

= 

0E80 

C9D8 

CMP 

#216 

0F90 

COUNTERS 

~ 

0E82 

DO DB 

BNE 

S2 

0F90 

SC0RE1L 

= 

0E84 

A2 04 

LDX 

#4 

0F90 

SC0RE2L 

= 

0E86 

20 9C OC DRB 

JSR 

DRAWBAR 

0F90 

SC0RE1H 

= 

0E89 

CA 

DEX 


0F90 

SC0RE2H 

= 

0E8A 

10 FA 

BPL 

DRB 

0F90 

SCORED 

— 

0E8C 

A2 00 

LDX 

#0 

0F90 

INDEX 

— 

0E8E 

AO 01 

LDY 

#1 

0F90 

FLAG 

= 

0E90 

18 

CLC 


0F90 

STACKPT 

= 

0E91 

20 FO FF 

JSR 

$FFFO 

0F90 

STACK 

= 

0E94 

A9 51 

LDA 

#<TITLE1 




0E96 

AO OF 

LDY 

#>TITLE1 




0E98 

20 IE AB 

JSR 

$AB1E 




0E9B 

A2 18 

LDX 

#24 




0E9D 

AO OF 

LDY 

#15 




0E9F 

18 

CLC 





OEAO 

20 FO FF 

JSR 

$FFFO 




0EA3 

A9 74 

LDA 

#<TITLE2 




0EA5 

AO OF 

LDY 

#>TITLE2 




0EA7 

20 IE AB 

JSR 

$AB1E 





#255 

#1 


0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0,0,0,0,024,0,0,060 
0,0,060,0,0,024,0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0,0,0,0,0,0,0,127 
192,0,3,192,0,3,192, 
0 

3,192,0,3,192,0,3,1 

92 

0,3,192,0,3,192,0,3 

192,0,3,192,0,3,192, 

0 

3,192,0,3,192,0,3,1 

92 

0,3,192,0,3,192,0,3 

192,0,3,192,0,3,192, 

0 

3,192,0,3,192,0,3,8 
33,31,12,12,12 
0,1,0,0,0 

130,130,130,140,1 

50 

10,3,13,3,10 

160,225,97 

225,97,32,32,32,32 

10,20,30 

"MkiKRVS} SCORE 
{9 SRACE}TIME 3: 
00{4 SRACE}SCOR 

0 

"PRISONBALL" 

0 

"PRESS FIREBUTT 
ON" 

0 

*+6 

*+26 

*+36 

*+37 

*+38 

*+39 

*+40 

*+41 

*+42 

*+43 

*+45 







u 


u 

UJ 

U 


U 


Q-Bird 

Source code by Mike Sedore 


0801 


*= 

$801 

variables 

0801 

V 

= 

$D000 

0801 

BDRC0L0R 

= 

V+$20 

0801 

BCKCOLQR 

= 

V+$21 

0801 

PRINT 

= 

$FFD2 

0801 

PCURSOR 

= 

$E510 

0801 

SPRITEMC 

= 

V+$1C 

0801 

SPRITEON 

= 

V+$15 

0801 

SPRHRZ 

= 

V+$1D 

0801 

SPRVRT 

= 

V+$17 

0801 

SMC1 

= 

V+$25 

0801 

SMC2 

= 

V+$26 

0801 

SC0L0R 

= 

V+S27 

0801 

SPOINTER 

= 

$7F8 

0801 

ILZRDSPD 

= 

$33C 

0801 

SID 

= 

$D400 

0801 

RANDOM 

= 

SID+$1B 

0801 

JOYSTICK 

' r= 

$DC00 

0801 

SPRJMP 

= 

$3FE 

0801 

SQRCOMP 

= 

$3D0 

0801 

LEVEL 

= 

$3E1 

0801 

PRIORITY 

= 

V+$1B 

0801 

EGGPAUS 

= 

$3C5 

0801 

IRQ 

= 

$314 

0801 

IRQENTRY 

= 

$EA31 

0801 

RESTORE 

= 

$318 

0801 

SHIFT 

= 

$28D 

0801 

DIRBJ 

= 

$8000 

0801 

DIRLJ 

= 

$8001 

0801 

DIRCJ 

= 

$8002 

;basic line 

0801 OB 08 00 


.BYT 

$B,$8,$0,$0,$9E,$3 

2,$30,$36,$31,$0,$ 

o t $o 


;m.l. 


080D 

A9 00 START 

LDA 

#0 

080F 

8D 20 DO 

STA 

BDRCOLOR 

0812 

20 AD 14 

JSR 

SETLIVES 

0815 

20 IB 08 

JSR 

GRID 

0818 

4C Cl OB 

JMP 

SPRSETUP 

081B 

A9 93 GRID 

LDA 

#$93 

081D 

20 D2 FF 

JSR 

PRINT 

0820 

A9 08 

LDA 

#8 

0822 

20 D2 FF 

JSR 

PRINT 

0825 

A9 8E 

LDA 

#$8E 

0827 

20 D2 FF 

JSR 

PRINT 


;print grid 


082A 

A9 04 

LDA 

#4 

082C 

85 02 

STA 

$2 

082E 

A9 0E ROW 

LDA 

#$E 

0830 

38 

SEC 


0831 

E5 02 

SBC 

$2 

0833 

85 D3 

STA 

$D3 


0835 

A5 02 

LDA 

$2 

0837 

85 D6 

STA 

$D6 

0839 

20 10 E5 

JSR 

PCURSOR 

083C 

AO 06 

LDY 

#6 

083E 

A2 OE COLUMN 

LDX 

#$E 

0840 

BD 61 08 ASQUARE 

LDA 

SQRDATA.X 

0843 

20 D2 FF 

JSR 

PRINT 

0846 

CA 

DEX 


0847 

10 F7 

BPL 

ASQUARE 

0849 

88 

DEY 


084A 

10 F2 

BPL 

COLUMN 

084C 

A9 0D 

LDA 

#$D 

084E 

20 D2 FF 

JSR 

PRINT 

0851 

20 D2 FF 

JSR 

PRINT 

0854 

E6 02 

INC 

$2 

0856 

E6 02 

INC 

$2 

0858 

A5 02 

LDA 

$2 

085A 

C9 10 

CMP 

#$10 

085C 

DODO 

BNE 

ROM/ 

085E 

4C 70 08 

JMP 

TEXT 

0861 

ID 91 B7 SQRDATA 

.ASC 

"{RIGHT} {UP}f< 

2 Y^5^{3 LEFT 




}{DOWN}£{OFF 
} £{RVS}{WHT}" 

;print screen text 



0870 

AO 09 TEXT 

LDY 

#9 

0872 

A9 00 

LDA 

#0 

0874 

85 02 

STA 

$2 

0876 

A6 02 NEXTCHAR 

LDX 

$2 

0878 

BD AD 08 

LDA 

TEXTDATA.X 

087B 

C9FF 

CMP 

#$FF 

087D 

FO 08 

BEQ 

NEXTMSSG 

087F 

20 D2 FF 

JSR 

PRINT 

0882 

E6 02 CRSRSET 

INC 

$2 

0884 

4C 76 08 

JMP 

NEXTCHAR 

0887 

88 NEXTMSSG 

DEY 


0888 

10 03 

BPL 

READCRSP 

088A 

4C 8F 13 

JMP 

PRINTLVS 

088D 

E8 READCRSP 

INX 


088E 

E6 02 

INC 

$2 

0890 

BD AD 08 

LDA 

TEXTDATA.X 

0893 

85 D3 

STA 

$D3 

0895 

E8 

INX 


0896 

E6 02 

INC 

$2 

0898 

BD AD 08 

LDA 

TEXTDATA.X 

089B 

85 D6 

STA 

$D6 

089D 

48 

PHA 


089E 

8A 

TXA 


089F 

48 

PHA 


08A0 

98 

m 


08A1 

48 

PHA 


08A2 

20 10 E5 

JSR 

PCURSOR 

08A5 

68 

PLA 


08A6 

A8 

TAY 


08A7 

68 

PLA 


08A8 

AA 

TAX 


08A9 

68 

PLA 


08AA 

4C 82 08 

JMP 

CRSRSET 

•data for screen text 
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08AD FF 21 05 TEXTDATA 
08B0 1C 51 2D 
08B7 FF 21 06 
08BA A3 A3 A3 
08C0 FF 23 08 
08C3 IF 42 59 
08C6 FF 22 0A 
08C9 4D 49 4B 
08CD FF 21 OC 
08D0 53 45 44 
08D6 FF 04 11 
08D9 IE 48 49 

08E8 HISCRMEM 

08E8 FF 05 13 
08EB IE 53 43 

08F8 SCRMEM 

08F8 FF 19 11 
08FB 1E4C45 

0905 FF 19 13 
0908 1E4C49 

0910 FF 

;print dividing lines on screen 

0911 A9 97 HRZLINES 

0913 20 D2 FF 

0916 AO 02 

0918 A9A4 

091A 20 2E09 

091D AO 10 

091F A9A3 

0921 20 2E 09 

0924 AO 14 

0926 A9A4 

0928 20 2E09 

092B 4C 42 09 

092E 84 D6 PRINTHRZ 

0930 AO 00 

0932 84 D3 

0934 48 

0935 20 10 E5 

0938 68 

0939 A2 26 

093B 20 D2 FF PRHZ 

093E CA 

093F 10 FA 

0941 60 

0942 A9 1F VRTLINE 

0944 85 D3 

0946 A9 03 

0948 85 D6 

094A 20 10 E5 

094D A2 0C 

094F A9A7 VRTLOOP 

0951 20 D2 FF 

0954 A9 9D 

0956 20 D2FF 

0959 A9 11 

095B 20D2FF 

095E CA 

095F 10 EE 

0961 60 

;sprite set-up 

0962 A9FF SPRSET1 
0964 8D1CD0 


.BYT 

$FF,$21,$5 

.ASC 

.BYT 

"{RED}Q-BIRD" 

$FF,$21,$6 

.ASC 

"£<6 T>1" 

.BYT 

$FF,$23,$8 

.ASC 

.BYT 

"{BLU}BY" 

$FF,$22,$A 

.ASC 

"MIKE" 

.BYT 

$FF,$21,$C 

"SEDORE" 

.ASC 

.BYT 

$FF,$4,$11 

.ASC 

"{GRN}HISCORE:£< 

6>J00000" 


*-5 

.BYT 

$FF,$5,$13 

.ASC 

"{GRN}SC0RE:f<6 

>J00000" 

= 

*-5 

.BYT 

$FF,$19,$11 

.ASC 

^GRN}LEVEL:[<6 

.BYT 

$FF,$19,$13 

.ASC 

"{GRN}LIVES:f<6 


>3" 

.BYT 

$FF 

LDA 

#$97 

JSR 

PRINT 

LDY 

#2 

LDA 

#$A4 

JSR 

PRINTHRZ 

LDY 

#$10 

LDA 

#$A3 

JSR 

PRINTHRZ 

LDY 

#$14 

LDA 

#$A4 

JSR 

PRINTHRZ 

JMP 

VRTLINE 

STY 

$D6 

LDY 

#0 

STY 

$D3 

PHA 


JSR 

PCURSOR 

PLA 


LDX 

#$26 

JSR 

PRINT 

DEX 


BPL 

PRHZ 

RTS 


LDA 

#$1F 

STA 

$03 

LDA 

#3 

STA 

$D6 

JSR 

PCURSOR 

LDX 

#$C 

LDA 

#$A7 

JSR 

PRINT 

LDA 

#$9D 

JSR 

PRINT 

LDA 

#$11 

JSR 

PRINT 

DEX 


BPL 

VRTLOOP 

RTS 


LDA 

#$FF 

STA 

SPRITEMC 


0967 A9 00 
0969 8D15D0 
096C 8D1DD0 
096F 8D 17 DO 
0972 A9 07 
0974 8D25D0 
0977 4C7A0B 

sprite data 

097A 03 CO 00 SPRDAT1 

0982 AC 36 6A 

098A AABOOE 

0992 03 77 00 

099A 00 00 00 
09A2 00 00 00 
09AA 00 00 00 
09B2 00 00 00 
09BA 03 C3 00 SRPDAT2 

09C2 ECD6 6B 

09CA AEB0 3E 

09D2 03 77 00 

09DA CO 03 33 
09E2 00 00 00 
09EA 00 00 00 
09F2 00 00 00 
09FA 00 OF 00 SPRDAT3 

0A02 B0EAA6 

OAOA AABOOE 

0A12 03 77 00 

0A1A 00 00 00 
0A22 00 00 00 
0A2A 00 00 00 
0A32 00 00 00 
0A3A 03 OF 00 SPRDAT4 

0A42 B0EBA6 

0A4A EA9C0E 

0A52 03 77 00 

0A5A CO 03 33 
0A62 00 00 00 
0A6A 00 00 00 
0A72 00 00 00 
0A7A 03 CO 00 SPRDAT5 

0A82 00 EA AC 

0A8A AC 00 3E 

0A92 35 AC 00 

0A9A 00 OD AC 

0AA2 B0 00 3E 

OAAA 03 AC 00 
0AB2 00 00 00 


LDA 

#0 

STA 

SPRITEON 

STA 

SPRHRZ 

STA 

SPRVRT 

LDA 

#7 

STA 

SMC1 

JMP 

SPRSET2 


.BYT 

3,192,0,14,176,240, 

58,175 

.BYT 

172,54,106,172,214, 

170,176,58 

.BYT 

170,176,14,170,192, 

3,103,0 

.BYT 

3,119,0,13,221,192, 

3,51 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

3,195,0,14,190,240, 

58,170 

.BYT 

236,214,107,172,54, 

171,176,218 

.BYT 

174,176,62,170,192, 

3,103,0 

.BYT 

3,119,0,3,119,0,13,2 

21 

.BYT 

192,3,51,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,15,0,60,58,192,23 

5,234 

.BYT 

176,234,166,112,58, 

170,92,58 

.BYT 

170,176,14,170,192, 

3,103,0 

.BYT 

3,119,0,13,221,192, 

3,51 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

3,15,0,62,250,192,2 

38,170 

.BYT 

176,235,166,92,59,1 

70,112,58 

.BYT 

234,156,14,170,240, 

3,103,0 

.BYT 

3,119,0,3,119,0,13,2 

21 

.BYT 

192,3,51,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 

.BYT 

3,192,0,14,176,0,54, 

108 

.BYT 

0,234,172,0,254,172 

,0,234 

.BYT 

172,0,62,176,0,234, 

172,0 

.BYT 

53,172,0,13,172,0,1 

3,172 

.BYT 

0,13,172,0,58,172,0, 

234 

.BYT 

176,0,62,176,0,14,1 

76,0 

.BYT 

3,172,0,0,240,0,0,0 

.BYT 

0,0,0,0,0,0,0,0 
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OABA 

03 CO 00 SPRDAT6 

.BYT 

3,192,0,14,176,0,54, 

ino 




E,$0,$0 

0AC2 

00 EAAC 

.BYT 

lUo 

0,234,172,0.234,172 

;execute sprite set-up and jump into demo 





,0,58 





OACA 

BO 00 OE 

.BYT 

176,0,14,172,0,58,1 

0BC1 

20 62 09 SPRSETUP 

JSR 

SPRSET1 




72,0 

0BC4 

4C80 12 

JMP 

DEMOMSSG 

0AD2 

E5 AC 00 

.BYT 

229,172,0,61,172,0, 

J 







13,172 

;start of bird routine 



OADA 

00 OD AC 

.BYT 

0,13,172,0,58,176,0, 

* 







234 

0BC7 

4C E9 18 BIRD 

JMP 

PAUSGAME 

0AE2 

BO 00 EE 

.BYT 

176,0,238,176,0,62, 

OBCA 

AD 34 03 RTNBIRD 

LDA 

$334 




176,0 

OBCD 

C9 07 

CMP 

#7 

OAEA 

03 BO 00 

.BYT 

3,176,0,0,192,0,0,0 

OBCF 

DO OF 

BNE 

EXITBIRD 

0AF2 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0BD1 

A9 00 

LDA 

#0 

OAFA 

OF 00 00 SPRDAT7 

.BYT 

15,0,0,58,192,0,230, 

0BD3 

8D 34 03 

STA 

$334 




112 

0BD6 

EE 35 03 

INC 

$335 

0B02 

00 EAAC 

.BYT 

0,234,172,0,234,252 

0BD9 

AD 35 03 

LDA 

$335 




,0,234 

OBDC 

C9 05 

CMP 

#5 

OBOA 

AC 00 3A 

.BYT 

172,0,58,240,0,234, 

OBDE 

FO 03 

BED 

BIRD1 




172,0 

OBEO 

4C D8 15 EXITBIRD 

JMP 

CHKEGGP 

OBI 2 

E9 70 00 

.BYT 

233,112,0,233,192,0 

0BE3 

20 2A OC BIRD1 

JSR 

CBC 




,233,192 

0BE6 

FO 03 

BEQ 

BSTILL 

OBI A 

00 E9 CO 

.BYT 

0,233,192,0,234,176 

0BE8 

4CA9 11 

JMP 

SUPERJMP 




,0,58 

OBEB 

20 CO 11 BSTILL 

JSR 

CHKBTTN 

0B22 

AC 00 3A 

.BYT 

172,0,58,240,0,58,1 

OBEE 

29 OF 

AND 

#$F 




92,0 

OBFO 

49 OF 

EOR 

#$F 

0B2A 

EB 00 00 

.BYT 

235,0,0,60,0,0,0,0 

0BF2 

85 03 

STA 

$3 

0B32 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0BF4 

29 01 

AND 

#1 

0B3A 

OF 00 00 SPRDAT8 

.BYT 

15,0,0,58,192,0,230, 

0BF6 

FO 08 

BEQ 

JDOWN 




112 

0BF8 

A9 00 

LDA 

#0 

0B42 

00 EAAC 

.BYT 

0,234,172,0,234,172 

OBFA 

80 00 60 

STA 

DIRBJ 




,0,58 

OBFD 

4C 8D OC 

JMP 

SETBIRDP 

0B4A 

BO 00 EA 

.BYT 

176,0,234,192,0,234 

OCOO 

A5 03 JDOWN 

LDA 

$3 




,176,0 

0C02 

29 02 

AND 

#2 

0B52 

E9 6C00 

.BYT 

233,108,0,233,240,0 

0C04 

FO 08 

BEQ 

JLEFT 




,233,192 

0C06 

A9 20 

LDA 

#$20 

0B5A 

00 E9 CO 

.BYT 

0,233,192,0,58,176, 

0C08 

8D 00 80 

STA 

DIRBJ 




0,58 

OCOB 

4C 8D OC 

JMP 

SETBIRDP 

0B62 

AC 00 3A 

.BYT 

172,0,58,236,0,58,2 

OCOE 

A5 03 JLEFT 

LDA 

$3 




40,0 

0C10 

29 04 

AND 

#4 

0B6A 

3B 00 00 

.BYT 

59,0,0,12,0,0,0,0 

0C12 

FO 08 

BEQ 

JRIGHT 

0B72 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0C14 

A9 40 

LDA 

#$40 





0C16 

8D00 80 

STA 

DIRBJ 

;set sprite colors and pointers 



0C19 

4C 8D OC 

JMP 

SETBIRDP 





0C1C 

A5 03 JRIGHT 

LDA 

$3 

0B7A 

A9 00 SPRSET2 

LDA 

#0 

0C1E 

29 08 

AND 

#8 

0B7C 

8D 26 DO 

STA 

SMC2 

0C20 

FO BE 

BEQ 

EXITBIRD 

0B7F 

A2 07 

LDX 

#7 

0C22 

A9 60 

LDA 

#$60 

0B81 

BD 93 OB SCPLOOP 

LDA 

SCDATA,X 

0C24 

8D 00 80 

STA 

DIRBJ 

0B84 

9D 27 DO 

STA 

SCOLOR.X 

0C27 

4C 8D OC 

JMP 

SETBIRDP 

0B87 

BD9B OB 

LDA 

SPDATA,X 

0C2A 

A9 00 CBC 

LDA 

#0 

0B8A 

9D F8 07 

STA 

SPOINTER.X 

0C2C 

8D 35 03 

STA 

$335 

0B8D 

CA 

DEX 


0C2F 

AD 36 03 

LDA 

$336 

0B8E 

10 FI 

BPL 

SCPLOOP 

0032 

60 

RTS 


0B90 

4C A3 OB 

JMP 

SPRSET3 

0C33 

8D 21 DO CTB1 

STA 

BCKCOLOR 

0B93 

05 04 04 SCDATA 

.BYT 

5,4,4,4,9,2,6,14 

; 




OBSB 

8C 86 84 SPDATA 

.BYT 

$8C,$86,$84,$86,$8 

;clear tape buffer for number storage 





A,$88,$80,$8E 









0C36 

A9 00 

LDA 

#0 

:set sorite locations 



0C38 

A2CB 

LDX 

#$CB 





0C3A 

9D 34 03 CTB1L00P 

STA 

$334,X 

0BA3 

A2 OF SPRSET3 

LDX 

#$F 

0C3D 

CA 

DEX 


0BA5 

BD B1 OB SLLOOP 

LDA 

SLDATA,X 

0C3E 

EO FF 

CPX 

#$FF 

0BA8 

9D00 DO 

STA 

v,x 

0C40 

DO F8 

BNE 

CTB1L00P 

OBAB 

CA 

DEX 


0C42 

60 

RTS 


OBAC 

10 F7 

BPL 

SLLOOP 

0C43 

EE 36 03 BJCNTR 

INC 

$336 

OBAE 

60 

RTS 


0C46 

AE 36 03 NOINC 

LDX 

$336 

OBAF 

00 

BRK 


0C49 

EO 1A 

CPX 

#$1A 

OBBO 

00 

BRK 


0C4B 

DO 08 

BNE 

MOVEBIRD 

OBB1 

78 66 6D SLDATA 

.BYT 

$78,$66,$6D,$47,$F 

0C4D 

A9 00 

LDA 

#0 




D,$47,$1D,$97 

0C4F 

8D 36 03 

STA 

$336 

0BB9 

00 00 00 

.BYT 

$0,$0,$0,$0,$A9,$9 

0C52 

4C 15 16 

JMP 

CHECKEGG 


171 








Chapter 3 


1 




0CE5 

4A 

LSR 


;move bird 1 pixel of jump 



0CE6 

4A 

LSR 


1 




0CE7 

18 

CLC 


0C55 

8A MOVEBIRD 

TXA 


0CE8 

69 OC 

ADC 

#$C 

0C56 

18 

CLC 


OCEA 

8D 3B 03 

STA 

$33B 

0C57 

6D 00 80 

ADC 

DIRBJ 

OCED 

20 AC OC 

JSR 

SLTDSL 

0C5A 

AA 

TAX 


OCFO 

4C 8C OD JTR4 

JMP 

CHKSQR 

0C5B 

BD F3 OC 

LDA 

JMPDATA.X 

; 




0C5E 

AA 

TAX 


;data for direction of each dot of movement during a jump 

0C5F 

BD 76 OC 

LDA 

XDIR.X 





0C62 

18 

CLC 


0CF3 

JMPDATA 

= 

* 

0C63 

6D OC DO 

ADC 

V+$C 

0CF3 

00 01 01 JDUP 

.BYT 

0,1,1,1,1,1,1,1 

0C66 

8D OC DO 

STA 

V+$C 

OCFB 

01 09 09 

.BYT 

1,9,9,9,9,9,9,9 

0C69 

BD 81 OC 

LDA 

YDIR.X 

0D03 

09 08 08 

.BYT 

9,8,8,8,8,8,8,8 

0C6C 

18 

CLC 


ODOB 

08 00 00 

.BYT 

8,0,0,0,0,0,0,0 

0C6D 

6D ODDO 

ADC 

V+$D 

0D13 

00 04 04 JDDOWN 

.BYT 

0,4,4,4,4,4,4,4 

0C70 

8D OD DO 

STA 

V+$D 

0D1B 

04 06 06 

.BYT 

4,6,6,6,6,6,6,6 

0C73 

4C CF 17 

JMP 

BJSOUND 

0D23 

06 02 02 

.BYT 

6,2,2,2,2,2,2,2 

0C76 

00 00 00 XDIR 

.BYT 

0,0,0,0,255,255,255, 

0D2B 

02 00 00 

.BYT 

2,0,0,0,0,0,0,0 




0,1,1,1 

0D33 

00 05 05 JDLEFT 

.BYT 

0,5,5,5,5,5,5,5 

0C81 

00 FF 01 YDIR 

.BYT 

0,255,1,0,0,255,1,0, 

0D3B 

05 04 04 

.BYT 

5,4,4,4,4,4,4,4 




0,255,1,0 

0D43 

04 06 06 

.BYT 

4,6,6,6,6,6,6,6 

; 




0D4B 

06 00 00 

.BYT 

6,0,0,0,0,0,0,0 

;set bird sprite pointer to match direction of jump 

0D53 

00 09 09 JDRIGHT 

.BYT 

0,9,9,9,9,9,9,9 

; 




0D5B 

09 08 08 

.BYT 

9,8,8,8,8,8,8,8 

GC8D 

AD 00 80 SETBIRDP 

LDA 

DIRBJ 

0D63 

08 OAOA 

.BYT 

8,10,10,10,10,10,10, 

0090 

FO OC 

BED 

BIRDUR 




10 

0C92 

C9 60 

CMP 

#$60 

0D6B 

OAOO 00 

.BYT 

10,0,0,0,0,0,0,0 

0C94 

FO 08 

BEQ 

BIRDUR 

• 



0C96 

A9 81 

LDA 

#$81 

;change square color 



0C98 

8D FE 07 

STA 

SPOINTER+6 

• 




0C9B 

4C43 OC 

JMP 

BJCNTR 

0D73 

A5 FE CSQRCOL 

LDA 

$FE 

0C9E 

A9 83 BIRDUR 

LDA 

#$83 

0D75 

18 

CLC 

0CA0 

8D FE 07 

STA 

SPOINTER+6 

0D76 

69 D4 

ADC 

#$D4 

0CA3 

4C43 OC 

JMP 

BJCNTR 

0D78 

85 FE 

STA 

$FE 

0CA6 

CE FE 07 BIRDSIT 

DEC 

SPOINTER+6 

0D7A 

AO 02 

LDY 

#2 

0CA9 

4C EO OB 

JMP 

EXITBIRD 

0D7C 

B1 FD CLOOP 

LDA 

($FD),Y 

; 




0D7E 

4C48 12 

JMP 

CHKCOLR 

translate sprite locations to a screen location 

0D81 

20 01 17 CCC 

JSR 

INCSCORE 

1 




0D84 

91 FD 

STA 

($FD),Y 

OCAC 

A9 04 SLTDSL 

LDA 

#4 

0D86 

88 

DEY 

OCAE 

85 FE 

STA 

$FE 

0D87 

10 F3 

BPL 

CLOOP 

OCBO 

AO 00 

LDY 

#0 

0D89 

4C A6 OC CCDONE 

JMP 

BIRDSIT 

0CB2 

84 FD 

STY 

$FD 

• 




0CB4 

A2 04 

LDX 

#4 

;check if bird is on a square 



0CB6 

AD 3A 03 VRTADD 

LDA 

$33A 

; 




0CB9 

18 

CLC 


0D8C 

B1 FD CHKSQR 

LDA 

($FD),Y 

OCBA 

65 FD 

ADC 

$FD 

0D8E 

C9 E9 

CMP 

#$E9 

OCBC 

85 FD 

STA 

$FD 

0D90 

FO El 

BEQ 

CSQRCOL 

OCBE 

A5 FE 

LDA 

$FE 

0D92 

4C46 14 

JMP 

DEATH 

OCCO 

69 00 

ADC 

#0 

• 




0CC2 

85 FE 

STA 

$FE 

;start of lizard routine 



0CC4 

CA 

DEX 






0CC5 

10 EF 

BPL 

VRTADD 

0D95 

EE 37 03 LIZARD 

INC 

$337 

0CC7 

A5FD 

LDA 

$FD 

0D98 

AD 37 03 

LDA 

$337 

0CC9 

18 

CLC 


0D9B 

C9 02 

CMP 

#2 

OCCA 

6D 3B 03 

ADC 

$33B 

0D9D 

DO 2C 

BNE 

EXITLZRD 

OCCD 

85 FD 

STA 

$FD 

0D9F 

A9 00 

LDA 

#0 

OCCF 

A5FE 

LDA 

$FE 

0DA1 

8D 37 03 

STA 

$337 

0CD1 

69 00 

ADC 

#0 

0DA4 

EE 38 03 

INC 

$338 

0CD3 

85 FE 

STA 

$FE 

0DA7 

AD 38 03 

LDA 

$338 

0CD5 

60 

RTS 


ODAA 

C9 01 

CMP 

#1 

0CD6 

00 

BRK 


ODAC 

DO ID 

BNE 

EXITLZRD 

0CD7 

00 

BRK 


ODAE 

A9 00 

LDA 

#0 

0CD8 

AD OD DO SLSU 

LDA 

V+$D 

ODBO 

8D 38 03 

STA 

$338 

OCDB 

LV1 

= 

*-1 

0DB3 

A2 01 

LDX 

#1 

OCDB 

38 

SEC 


0DB5 

FE 3C 03 LZRDCNTR 

INC 

ILZRDSPD.X 

OCDC 

E9 31 

SBC 

#$31 

0DB8 

BD 3C 03 

LDA 

ILZRDSPD.X 

OCDE 

8D 3A 03 

STA 

$33A 

ODBB 

DD CD OD 

CMP 

ILSDATA-1.X 

0CE1 

ADOC DO 

LDA 

V+$C 

ODBE 

DO 08 

BNE 

NEXTLZRD 

0CE4 

LV2 

= 

*-1 

ODCO 

A9 00 

LDA 

#0 

0CE4 

4A 

LSR 


0DC2 

9D 3C 03 

STA 

ILZRDSPD.X 









The Source Code 


0DC5 

20 EAOD 

JSR 

MOVELZRD 

0E4A 

C9 00 

CMP 

#0 

0DC8 

4C BC OE NEXTLZRD 

JMP 

NEXTLIZD 

0E4C 

FO OA 

BEQ 

LZRDUR 

ODCB 

4C 15 11 EXITLZRD 

JMP 

COBRA 

0E4E 

C9 60 

CMP 

#$60 

ODCE 

18 1C 20 ILSDATA 

.BYT 

$18,$1C,$20 

0E50 

FO 06 

BEQ 

LZRDUR 





0E52 

A9 85 

LDA 

#$85 

;sound set-up 



0E54 

9D F8 07 

STA 

SPOINTER.X 





0E57 

60 

RTS 


ODDI 

A2 18 SOUNDSU 

LDX 

#$18 

0E58 

A9 87 LZRDUR 

LDA 

#$87 

0DD3 

A9 00 

LDA 

#0 

0E5A 

9D F8 07 

STA 

SPOINTER.X 

0DD5 

9D 00 D4 CLEARSID 

STA 

SID.X 

0E5D 

60 

RTS 


0DD8 

CA 

DEX 


0E5E 

20 B3 OE CLZRDJD 

JSR 

SETY 

0DD9 

10 FA 

BPL 

CLEARSID 





ODDB 

A9FF 

LDA 

#$FF 

take the determined locations for where the lizard 

ODDD 

8D OF D4 

STA 

SID+15 

;will end after the chosen direction for a jump, and 

ODEO 

A9 80 

LDA 

#$80 

translate them into a screen location 


0DE2 

8D 12 D4 

STA 

SID+$12 

J 




0DE5 

A9 00 

LDA 

#0 

0E61 

AD 3A 03 

LDA 

$33A 

0DE7 

4C 70 17 

JMP 

RNDMEM 

0E64 

38 

SEC 






0E65 

E9 2C 

SBC 

#$2C 

:start of routine to handle 1 lizard 



0E67 

8D 3A 03 

STA 

$33A 





0E6A 

AD 3B 03 

LDA 

$33B 

ODEA 

BD 40 03 MOVELZRD 

LDA 

$340,X 

0E6D 

4A 

LSR 


ODED 

DO OB 

BNE 

CLJUMP 

0E6E 

4A 

LSR 


ODEF 

20 5E OE 

JSR 

CLZRDJD 

0E6F 

4A 

LSR 


0DF2 

OA 

ASL 


0E70 

18 

CLC 


0DF3 

OA 

ASL 


0E71 

69 OC 

ADC 

#$C 

0DF4 

OA 

ASL 


0E73 

8D 3B 03 

STA 

$33B 

0DF5 

OA 

ASL 


0E76 

86 FC 

STX 

$FC 

0DF6 

OA 

ASL 


0E78 

20 ACOC 

JSR 

SLTOSL 

0DF7 

20 47 OE 

JSR 

SETLZRDP 

0E7B 

A6FC 

LDX 

$FC 

ODRA 

BD 50 03 CLJUMP 

LDA 

$350,X 





ODFD 

8D01 80 

STA 

DIRLJ 

;check if chosen direction for lizard jump 


OECD 

FE 40 03 

INC 

$340,X 

Will end it on a square 



0E03 

BC 40 03 

LDY 

$340,X 

0E7D 




0E06 

CO IE 

CPY 

#$1E 

AO 00 

LDY 

#0 

0E08 

DO 06 

BNE 

LJND 

0E7F 

B1 FD 

LDA 

($FD),Y 

OEOA 

A9 00 

LDA 

#0 

0E81 

C9E9 

CMP 

#$E9 

OEOC 

9D40 03 

STA 

$340,X 

0E83 

DO D9 

BNE 

CLZRDJD 

OEOF 

60 

RTS 


0E85 

AD FF 03 

LDA 

$3FF 

0E10 

86 05 LJND 

STX 

$5 

0E88 

60 

RTS 


0E12 

06 05 

ASL 

$5 

0E89 

86 05 RNDLJUMP 

STX 

$5 

0E14 

8E 4F 03 

STX 

$34F 

0E8B 

20 97 17 

JSR 

GETRND 





0E8E 

29 03 

AND 

#3 

;move lizard 1 pixel during jump 



0E90 

8D FF 03 

STA 

Ll_ 

LL. 

8 

0E17 

98 

m 


■determine location where lizard will end after jump 

0E18 

18 

CLC 


\ 




0E19 

6D 01 80 

ADC 

DIRLJ 

0E93 

AA ' 

TAX 


0E1C 

A8 

TAY 


0E94 

BD AB OE 

LDA 

ADDX.X 

OE1D 

B9 F3 OC 

LDA 

JMPDATA.Y 

0E97 

18 

CLC 


0E20 

DO OA 

BNE 

LSM 

0E98 

79 01 DO 

ADC 

V+1.Y 

0E22 

48 

PHA 


0E9B 

8D 3A 03 

STA 

$33A 

0E23 

BD F8 07 

LDA 

SPOINTER.X 

0E9E 

BD AF OE 

LDA 

ADDY.X 

0E26 

29 FE 

AND 

#$FE 

0EA1 

18 

CLC 


0E28 

9D F8 07 

STA 

SPOINTER.X 

0EA2 

79 00 DO 

ADC 

V,Y 

0E2B 

68 

PLA 


0EA5 

8D 3B03 

STA 

$33B 

0E2C 

AA LSM 

TAX 


0EA8 

A6 05 

LDX 

$5 

0E2D 

A4 05 

LDY 

$5 

OEAA 

60 

RTS 


0E2F 

BD 76 OC 

LDA 

XDiR.X 

OEAB 

F2 12 02 ADDX 

.BYT 

$F2,$12,$2,$2 

0E32 

18 

CLC 


OEAF 

12 F2 EA ADDY 

.BYT 

$12,$F2,$EA,$1A 

0E33 

79 00 DO 

ADC 

V,Y 

0EB3 

86 05 SETY 

STX 

$5 

0E36 

99 00 DO 

STA 

V.Y 

0EB5 

06 05 

ASL 

$5 

0E39 

BD 81 OC 

LDA 

YDIR,X 

0EB7 

A4 05 

LDY 

$5 

0E3C 

18 

CLC 


0EB9 

4C 89 OE 

JMP 

RNDLJUMP 

0E3D 

79 01 DO 

ADC 

V-F1.Y 

* 




0E40 

99 01 DO 

STA 

V+1,Y 

;move on to next lizard 



0E43 

AE4F 03 

LDX 

$34F 

1 




0E46 

60 

RTS 


OEBC 

E8 NEXTLIZD 

INX 






OEBD 

EO 04 

CPX 

#4 

;set lizard sprite pointer to match 

direction of jump 

OEBF 

FO 03 

BEQ 

LZRDDONE 





0EC1 

4C B5 OD 

JMP 

LZRDCNTR 

0E47 

9D 50 03 SETLZRDP 

STA 

$350,X 

0EC4 

4C CB OD LZRDDONE 

JMP 

EXITLZRD 










Chapter 3 


; 




OFFF 

03 57 00 

.BYT 

3,87,0,3,155,0,3,171 

transfer sprite data to new locations 


1007 

00 OE 6C 

.BYT 

0,14,108,0,14,175,1 

0EC7 

A2 00 MOVESPRD 

LDX 

#0 

100F 

BE BO 3A 

.BYT 

92,57 

190,176,58,186,192, 

0EC9 

BD 7A 09 MDLOOP 

LDA 

SPRDAT1.X 




57,190,176 

OECC 

9DOO 20 

STA 

$2000,X 

1017 

OE AABO 

.BYT 

14,170,176,14,106,1 

OECF 

BD 7A OA 

LDA 

SPRDAT5.X 




92,3,171 

0ED2 

9D 00 21 

STA 

$2100,X 

101F 

00 00 FC 

.BYT 

0,0,252,0,0,0,0,0 

0ED5 

BDE7 0E 

LDA 

SPRDAT9.X 

1027 

03 FF 00 SPRDAT14 

.BYT 

3,255,0,14,102,192, 

0ED8 

9D 00 22 

STA 

S2200.X 




58,170 

OEDB 

BDA7 0F 

LDA 

SPRDAT12.X 

102F 

BO 35 99 

.BYT 

176,53,153,112,53,8 

OEDE 

9D CO 22 

STA 

$22C0,X 




5,112,13 

0EE1 

CA 

DEX 


1037 

55 CO 03 

.BYT 

85,192,3,87,0,3,155 

0EE2 

DO E5 

BNE 

MDLOOP 




,0 

0EE4 

4C D1 OD 

JMP 

SOUNDSU 

103F 

03 9B 00 

.BYT 

3,155,0,3,171,0,3,15 

;sprite data 



1047 

00 OE AC 

.BYT 

0,14,172,0,14,108,0, 

0EE7 

00 FC 00 SPRDAT9 

.BYT 

0,252,0,3,171,0,14, 

104F 

AC 00 OE 

.BYT 

172,0,14,108,0,14,1 




90 




72,0 

OEEF 

CO 39 AA 

.BYT 

192,57,170,176,58,1 

1057 

03 6B00 

.BYT 

3,107,0,3,171,0,3,1 




70,176,234 




55 

0EF7 

A9ACEA 

.BYT 

169,172,234,170,17 

105F 

00 00 EA 

.BYT 

0,0,234,192,0,63,0,0 




2,234,170,172 

1067 

00 00 00 SPRDAT15 

.BYT 

0,0,0,0,0,0,0,48 

OEFF 

39 AABO 

.BYT 

57,170,176,57,105,1 

106F 

00 00 EC 

.BYT 

0,0,236,0,3,171,0,3 




76,14,86 

1077 

6B 00 03 

.BYT 

107,0,3,107,0,3,91,0 

0F07 

CO 03 AB 

.BYT 

192,3,171,0,0,252,0, 

107F 

03 9B00 

.BYT 

3,155,0,0,252,0,0,0 




0 

1087 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

OFOF 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

108F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0F17 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

1097 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0F1F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

109F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

0F27 

00 FC 00 SPRDAT10 

.BYT 

0,252,0,3,171,0,14,1 

• 







50 

determine direction for cobra to iumD toward bird 

0F2F 

C0 3AA9 

.BYT 

192,58,169,176,58,1 

; 







70,176,234 

10A7 

AD 01 DO COBRADIR 

LDA 

V+1 

0F37 

AA AC EA 

.BYT 

170,172,234,170,17 

10AA 

18 

CLC 





2,234,170,172 

10AB 

69 08 

ADC 

#8 

0F3F 

39 AABO 

.BYT 

57,170,176,57,106,1 

10AD 

38 

SEC 





76,14,90 

10AE 

EDF6 03 

SBC 

$3F6 

0F47 

CO 03 AB 

.BYT 

192,3,171,0,0,252,0, 

10B1 

FO 08 

BEQ 

CHKHORZ 




0 

10B3 

90 03 

BCC 

CDOWN 

0F4F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10B5 

A9 00 

LDA 

#0 

0F57 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10B7 

60 

RTS 


0F5F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10B8 

A9 20 CDOWN 

LDA 

#$20 

0F67 

00 00 00 SPRDAT11 

.BYT 

0,0,0,0,0,0,0,0 

10BA 

60 

RTS 


0F6F 

00 03 F3 

.BYT 

0,3,243,252,62,174, 

10BB 

AD 00 DO CHKHORZ 

LDA 

V 




171,239 

10BE 

18 

CLC 


0F77 

FA 65 EA 

.BYT 

250,101,234,170,16 

10BF 

69 02 

ADC 

#2 




9,234,234,175 

10C1 

38 

SEC 


0F7F 

3F AAFO 

.BYT 

63,170,240,58,175,0 

10C2 

EDF5 03 

SBC 

$3F5 




,15,240 

10C5 

90 03 

BCC 

CRIGHT 

0F87 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10C7 

A9 40 

LDA 

#$40 

0F8F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10C9 

60 

RTS 


0F97 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10GA 

A9 60 CRIGHT 

LDA 

#$60 

0F9F 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10CC 

60 

RTS 


0FA7 

00 00 00 SPRDAT12 

.BYT 

0,0,0,0,0,0,15,192 





OR\F 

00 3ABC 

.BYT 

0,58,188,0,14,171,2 

;see if cobra needs new direction to jump 





52,63 

; 




0FB7 

AE AB EF 

.BYT 

174,171,239,250,10 

10CD 

AD FO 03 CBRASTRT 

LDA 

$3F0 




1,234,170,169 

10D0 

DO 06 

BNE 

CONTCJMP 

OFBF 

EA EA AF 

.BYT 

234,234,175,63,170, 

10D2 

20 36 11 

JSR 

FINDCDIR 




240,14,171 

10D5 

8D 02 80 

STA 

DIRCJ 

0FC7 

00 OE AC 

.BYT 

0,14,172,0,58,240,0, 

10D8 

EE FO 03 CONTCJMP 

INC 

$3F0 




15 

10DB 

AE FO 03 

LDX 

$3F0 

OFCF 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10DE 

EO 20 

CPX 

#$20 

0FD7 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10E0 

FO 2B 

BEQ 

CJDONE 

OFDF 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0 

10E2 

8A 

TXA 


0FE7 

00 00 00 SPRDAT13 

.BYT 

0,0,0,0,252,0,3,171 

10E3 

18 

CLC 


OFEF 

00 OE 66 

.BYT 

0,14,102,192,62,170 

10E4 

6D 02 80 

ADC 

DIRCJ 




,240,53 

10E7 

AA 

TAX 


0FF7 

A9 70 35 

.BYT 

169,112,53,153,112, 

10E8 

BD F3 OC 

LDA 

JMPDATA.X 




13,85,192 

10EB 

AA 

TAX 







The Source Code 


10EC DO 08 

BNE 

CJND 

;give hawk random row to fly across 


10EE ADF8 07 

LDA 

SPOINTER 

1179 




10F1 29 8C 

AND 

#$8C 

20 97 17 RNDROW 

JSR 

GETRND 

10F3 8DF8 07 

STA 

SPOINTER 

117C 

29 07 

AND 

#7 




117E 

C9 06 

CMP 

#6 

;move cobra 1 pixel of jump 



1180 

B0F7 

BCS 

RNDROW 



1182 

OA 

ASL 


10F6 BD76 0CCJND 

LDA 

XDIR.X 

1183 

OA 

ASL 


10F9 18 

CLC 


1184 

OA 

ASL 


10FA 6D00D0 

ADC 

V 

1185 

OA 

ASL 


10FD 8D00D0 

STA 

V 

1186 

18 

CLC 


1100 BD810C 

LDA 

YDIR.X 

1187 

69 4C 

ADC 

#$4C 

1103 18 

CLC 


1189 

8D09 DO 

STA 

V+9 

1104 6D01D0 

ADC 

V+1 

118C 

4C 67 11 

JMP 

EXITHA/VK 

1107 8D01D0 

STA 

V+1 

118F 

EE FC 03 ANMTHA/VK 

INC 

$3FC 

110A 4C 4E 11 EXITCBRA 

JMP 

HAWK 

1192 

AD FC 03 

LDA 

$3FC 

110D A9 00 CJDONE 

LDA 

#0 

1195 

C9 20 

CMP 

#$20 

110F 8DF0 03 

STA 

$3F0 

1197 

DO D1 

BNE 

MOVEHA/VK 

1112 4C0A11 

JMP 

EXITCBRA 








;animate hawk 



;start of cobra routine 



1199 

AD FC 07 

LDA 

SPOINTER+4 

1115 EE FI 03 COBRA 

INC 

$3F1 

119C 

49 01 

EOR 

#1 

1118 AD FI 03 

LDA 

$3F1 

119E 

8D FC 07 

STA 

SPOINTER+4 

111B C9 0A 

CMP 

#$A 

11A1 

A9 00 

LDA 

#0 

111D DO EB 

BNE 

EXITCBRA 

11A3 

8D FC 03 

STA 

$3FC 

111F A9 00 

LDA 

#0 

11A6 

4C 6A 11 

JMP 

MOVEHA/VK 

1121 8D FI 03 

STA 

$3F1 

' 




1124 EEF2 03 

INC 

$3F2 

;make each movement of bird twice if super jump is on 

1127 ADF2 03 

LDA 

$3F2 





112A C9 05 

CMP 

#5 

11A9 

AD FE 03 SUPERJMP 

LDA 

SPRJMP 

112C DO DC 

BNE 

EXITCBRA 

11AC 

C9 01 

CMP 

#1 

112E A9 00 

LDA 

#0 

11AE 

FO 03 

BEQ 

SUPERON 

1130 8DF2 03 

STA 

$3F2 

11B0 

4C 43 OC ICNTR 

JMP 

BJCNTR 

1133 4CCD10 

JMP 

CBRASTRT 

11B3 

EE FD 03 SUPERON 

INC 

$3FD 

1136 A9 8D FINDCDIR 

LDA 

#$8D 

11B6 

AD FD 03 

LDA 

$3FD 

1138 8DF8 07 

STA 

SPOINTER 

11B9 

29 01 

AND 

#1 

113B 4CA7 10 

JMP 

COBRADIR 

11BB 

FO F3 

BEQ 

ICNTR 




11BD 

4C 46 0C 

JMP 

NOINC 

;store position of bird from last 

square it 

was on 

| 




for cobra to jump toward 



;check button for super jump 



113E AD 0C DO MEMBIRDL 

LDA 

V+$C 

11C0 

A9 00 CHKBTTN 

LDA 

#0 

1141 8D F5 03 

STA 

$3F5 

11C2 

8D FE 03 

STA 

$3FE 

1144 ADODDO 

LDA 

V-f$D 

11C5 

AD 00 DC 

LDA 

JOYSTICK 

1147 8DF6 03 

STA 

$3F6 

11C8 

29 10 

AND 

#$10 

114A AD 00 DC 

LDA 

JOYSTICK 

11CA 

DO 03 

BNE 

NOTPRSSD 

114D 60 

RTS 


11CC 

EE FE 03 

INC 

SPRJMP 




11CF 

4C 3E 11 NOTPRSSD 

JMP 

MEMBIRDL 

;start of hawk routine 










;start of bail routine 



114E EERA03HA/VK 

INC 

$3FA 

; 




1151 AD FA 03 

LDA 

$3FA 

11D2 

EE F3 03 BALL 

INC 

$3F3 

1154 C9 06 

CMP 

#6 

11D5 

ADF3 03 

LDA 

$3F3 

1156 DO OF 

BNE 

EXITHA/VK 

11D8 

C9 05 

CMP 

#5 

1158 A9 00 

LDA 

#0 

11DA 

DO OF 

BNE 

EXITBALL 

115A 8DFA03 

STA 

$3FA 

11DC 

A9 00 

LDA 

#0 

115D EE FB 03 

INC 

$3FB 

11DE 

8DF3 03 

STA 

$3F3 

1160 AD FB 03 

LDA 

$3FB 

11E1 

EE F4 03 

INC 

$3F4 

1163 C9 05 

CMP 

#5 

11E4 

ADF4 03 

LDA 

$3F4 

1165 FO 28 

BEQ 

ANMTHA/VK 

11E7 

C9 0A 

CMP 

#$A 

1167 4C D2 11 EXITHA/VK 

JMP 

BALL 

11E9 

FO 03 

BEQ 

MOVEBALL 

116A A9 00 MOVEHA/VK 

LDA 

#0 

11EB 

4C C7 OB EXITBALL 

JMP 

BIRD 

116C 8DFB03 

STA 

$3FB 

11EE 

A9 00 MOVEBALL 

LDA 

#0 




11F0 

8D F4 03 

STA 

$3F4 

;move hawk 










;move ball down 



116F EE 08 DO 

INC 

V+8 

• 




1172 AD 08 DO 

LDA 

V+8 

11F3 

EE OB DO 

INC 

V+$B 

1175 C9 01 

CMP 

#1 

11F6 

4C39 12 

JMP 

CHKBOT 

1177 DO EE 

BNE 

EXITHA/VK 

11F9 

C9 01 MOVELEFT 

CMP 

#1 




11FB 

FO 21 

BEQ 

RNDCOL 


175 












Chapter 3 


11FD 

C9 48 

CMP 

#$48 

127F 

60 

RTS 


11FF 

90 1A 

BCC 

NOLEFT 

; 




; 




;print demo message 



;move ball left 







j 




1280 

A9 06 DEMOMSSG 

LDA 

#6 

1201 

CE OA DO BALLLEFT 

DEC 

V+$A 

1282 

85 D3 

STA 

$D3 

1204 

EE EF 03 

INC 

$3EF 

1284 

A9 16 

LDA 

#$16 

1207 

AD EF 03 

LDA 

$3EF 

1286 

85 D6 

STA 

$D6 

120A 

C9 08 

CMP 

#8 

1288 

20 10 E5 

JSR 

PCURSOR 

120C 

DOOD 

BNE 

NOLEFT 

128B 

A2 00 

LDX 

#0 





128D 

BD 9B 12 DMLOOP 

LDA 

DDMSSG,X 

;ammate ball 



1290 

20 D2 FF 

JSR 

PRINT 





1293 

E8 

INX 


120E 

AD FD 07 

LDA 

SPOINTER+5 

1294 

EO 3A 

CPX 

#$3A 

1211 

49 01 

EOR 

#1 

1296 

DO F5 

BNE 

DMLOOP 

1213 

8D FD 07 

STA 

SPOINTER+5 

1298 

4C 3B 15 

JMP 

DEMOSET 

1216 

A9 00 

LDA 

#0 

129B 

08 8E 9E DDMSSG 

.BYT 

8,$8E,$9E 

1218 

8D EF 03 

STA 

$3EF 

129E 

55 53 45 

.ASC 

"USE STICK TO SE 

121B 

4C EB 11 NOLEFT 

JMP 

EXITBALL 




LECT LEVEL" 

; 




12B7 

OD 20 20 

.BYT 

13,32,32,32,32,32,3 

;give ball random column to roll down 





2,32 

; 




12BF 

50 52 45 

.ASC 

"PRESS TRIGGE 

121E 

20 97 17 RNDCOL 

JSR 

GETRND 




R TO START" 

1221 

29 07 

AND 

#7 





1223 

C9 07 

CMP 

#7 

istart of demo routine 



1225 

B0F7 

BCS 

RNDCOL 





1227 

AA 

TAX 


12D5 

20 48 15 DEMO 

JSR 

LZRDDEMO 

1228 

A9 00 

LDA 

#0 

12D8 

29 10 

AND 

#$10 

122A 

18 BCOL 

CLC 


12DA 

DO OB 

BNE 

CHKSTICK 

122B 

69 18 

ADC 

#$18 

12DC 

20 4A 13 

JSR 

CLEARBOT 

122D 

CA 

DEX 


12DF 

A9 40 

LDA 

#$40 

122E 

10 FA 

BPL 

BCOL 

12E1 

8D 15 DO 

STA 

SPRITEON 

1230 

18 

CLC 


12E4 

4C 24 17 

JMP 

BLANKSCR 

1231 

69 58 

ADC 

#$58 

12E7 

AD 00 DC CHKSTICK 

LDA 

JOYSTICK 

1233 

8D0AD0 

STA 

V+$A 

12EA 

29 OF 

AND 

#$F 

1236 

4C 01 12 

JMP 

BALLLEFT 

12EC 

49 OF 

EOR 

#$F 

1239 

AD OB DO CHKBOT 

LDA 

V+$B 

12EE 

29 03 

AND 

#3 

123C 

C9 A8 

CMP 

#$A8 

12F0 

C9 01 

CMP 

#1 

123E 

D0B9 

BNE 

MOVELEFT 

12F2 

DOOD 

BNE 

LVLDOWN 

1240 

A9 01 

LDA 

#1 

12F4 

AD El 03 

LDA 

LEVEL 

1242 

8D OB DO 

STA 

V+$B 

12F7 

C9 OF 

CMP 

#$F 

1245 

4C IE 12 

JMP 

RNDCOL 

12F9 

FO DA 

BEQ 

DEMO 

1248 

CLEVEL 

«= 

*+3 

12FB 

EE El 03 

INC 

LEVEL 

1248 

CLEVEL1 


*+14 

12FE 

4C OF 13 

JMP 

PRINTLVL 

; 




1301 

C9 02 LVLDOWN 

CMP 

#2 

;check if square has changed to 

final color 

1303 

DO DO 

BNE 

DEMO 

1248 




1305 

AD El 03 

LDA 

LEVEL 

29 OF CHKCOLR 

AND 

#$F 

1308 

C9 02 

CMP 

#2 

124A 

C9 00 

CMP 

#0 

130A 

90 C9 

BCC 

DEMO 

124C 

DO 03 

BNE 

INCCOLR 

130C 

CE El 03 

DEC 

LEVEL 

124E 

4C 89 OD 

JMP 

CCDONE 





1251 

85 04 INCCOLR 

STA 

$4 

;print level to screen 



1253 

E6 04 

INC 

$4 





1255 

C9 00 

CMP 

#0 

130F 

AD El 03 PRINTLVL 

LDA 

LEVEL 

1257 

DOOD 

BNE 

NFC 

1312 

C9 0A 

CMP 

#$A 

; 




1314 

BO OE 

BCS 

GRTR10 

;check if board is complete 



1316 

18 

CLC 


; 




1317 

69 30 

ADC 

#$30 

1259 

EE DO 03 

INC 

SQRCOMP 

1319 

8DC8 06 

STA 

$6C8 

125C 

AD DO 03 

LDA 

SQRCOMP 

131C 

A9 30 

LDA 

#$30 

125F 

C9 7E 

CMP 

#$7E 

131E 

8DC7 06 

STA 

$6C7 

1261 

DO 03 

BNE 

NFC 

1321 

4C D5 12 JTR1 

JMP 

DEMO 

1263 

4C 69 12 

JMP 

BRDCMPLT 

1324 

18 GRTR10 

CLC 


1266 

4C 81 OD NFC 

JMP 

CCC 

1325 

69 26 

ADC 

#$26 

1269 

A5 04 BRDCMPLT 

LDA 

$4 

1327 

8D C8 06 

STA 

$6C8 

126B 

91 FD 

STA 

($FD),Y 

132A 

A9 31 

LDA 

#$31 

126D 

20 01 17 

JSR 

INCSCORE 

132C 

8D C7 06 

STA 

$6C7 

1270 

4C 55 13 

JMP 

BCRAUSE 

132F 

4C D5 12 JTR2 

JMP 

DEMO 

1273 

AD El 03 SETCHK 

LDA 

LEVEL 

1332 

EE E3 03 DPI 

INC 

$3E3 

1276 

8D 56 12 

STA 

CLEVEL1 

1335 

DO FB 

BNE 

DPI 

1279 

8D 4B 12 

STA 

CLEVEL 

1337 

EE E4 03 DEMOPAUS 

INC 

$3E4 

127C 

4C 82 13 

JMP 

ADJCMPL 

133A 

AD E4 03 

LDA 

$3E4 











The Source Code 


133D 

C9FF 

CMP 

#$FF 

13CC 

A9 00 

LDA 

#0 

133F 

DO F6 

BNE 

DEMOPAUS 

13CE 

A2CB 

LDX 

#$CB 

1341 

A9 08 

LDA 

#8 

13D0 

9D 34 03 CTB2 

STA 

$334,X 

1343 

8D E4 03 

STA 

$3E4 

13D3 

CA 

DEX 


1346 

AD 00 DC 

LDA 

JOYSTICK 

13D4 

EO FF 

CPX 

#$FF 

1349 

60 

RTS 

13D6 

DO F8 

BNE 

CTB2 




13D8 

A5 04 

LDA 

$4 

clear bottom 2 rows of screen 


13DA 

8D El 03 

STA 

LEVEL 




13DD 

4C 62 15 JTR3 

JMP 

SETSPEED 

134A 

A2 4F CLEARBOT 

LDX 

#$4F 





134C 

A9 20 

LDA 

#$20 

print 

'get ready" 



134E 

9D 70 07 CBLOOP 

STA 

$770,X 





1351 

CA 

DEX 

13E0 

A9 OE GETREADY 

LDA 

#$E 

1352 

10 FA 

BPL 

CBLOOP 

13E2 

85 D3 

STA 

$D3 

1354 

60 

RTS 

13E4 

A9 16 

LDA 

#$16 




13E6 

85 D6 

STA 

$D6 

short pause after board is complete 

13E8 

20 4A 13 

JSR 

CLEARBOT 




13EB 

20 10 E5 

JSR 

PCURSOR 

1355 

EE E3 03 BCRMJSE 

INC 

$3E3 

13EE 

A2 00 

LDX 

#0 

1358 

DO FB 

BNE 

BCRAUSE 

13F0 

BD OE 14 GRLQOP 

LDA 

DATREADY,X 

135A 

EEE4 03 

INC 

$3E4 

13F3 

20 D2 FF 

JSR 

PRINT 

135D 

DO F6 

BNE 

BCPAUSE 

13F6 

E8 

INX 


135F 

EE E5 03 

INC 

$3E5 

13F7 

EO OA 

CPX 

#$A 

1362 

ADE5 03 

LDA 

$3E5 

13F9 

DO F5 

BNE 

GRLOOP 

1365 

C9 02 

CMP 

#2 

13FB 

A9 60 

LDA 

#$60 

1367 

DO EC 

BNE 

BCPAUSE 

13FD 

8D 6E 13 

STA 

STR1 

1369 

A9 00 

LDA 

#0 

1400 

20 55 13 

JSR 

BCPAUSE 

136B 

8D E5 03 

STA 

$3E5 

1403 

A9 8D 

LDA 

#$8D 

136E 

8D 15 DO STR1 

STA 

SPRITEON 

1405 

8D 6E 13 

STA 

STR1 

1371 

4C 9C 13 

JMP 

LEVELINC 

1408 

20 BA 14 

JSR 

CHANGETO 

1374 

AD El 03 INCLEVEL 

LDA 

LEVEL 

140B 

4C 73 12 • 

JMP 

SETCHK 

1377 

DO 03 

BNE 

LNINC 

140E 

9E DATREADY 

.BYT 

$9E 

1379 

EE El 03 

INC 

LEVEL 

140F 

47 45 54 

.ASC 

"GET READY' 

137C 

20 73 12 LNINC 

JSR 

SETCHK 





137F 

4C A9 13 

JMP 

PRNEWLVL 

bird fall after death 



1382 

EE 4B 12 ADJCMPL 

INC 

CLEVEL 





1385 

C9 OF 

CMP 

#$F 

1418 

EE D4 03 BIRDFALL 

INC 

$3D4 

1387 

DO 05 

BNE 

LEWEIT 

141B 

DO FB 

BNE 

BIRDFALL 

1389 

A9 00 

LDA 

#0 

141D 

EE D5 03 

INC 

$3D5 

138B 

8D 4B 12 

STA 

CLEVEL 

1420 

ADDS 03 

LDA 

$3D5 

138E 

60 LEWEIT 

RTS 

1423 

C9 03 

CMP 

#3 




1425 

DO FI 

BNE 

BIRDFALL 

;print # of lives 


1427 

A9 00 

LDA 

#0 




1429 

8D D5 03 

STA 

$3D5 

138F 

LIFE1 

= 

*+1 

142C 

EE ODDO 

INC 

V+$D 

138F 

A9 30 PRINTLVS 

LDA 

#$30 

142F 

ADODDO 

LDA 

V+$D 

1391 

20 D2 FF 

JSR 

PRINT 

1432 

49 FF 

EOR 

#$FF 

1394 

LIFE2 

= 

*+1 

1434 

8D OF D4 

STA 

SID+$F 

1394 

A9 35 

LDA 

#$35 

1437 

ADOD DO 

LDA 

V+$D 

1396 

20 D2 FF 

JSR 

PRINT 

143A 

C9 FF 

CMP 

#$FF 

1399 

4C 11 09 

JMP 

HRZLINES 

143C 

DO DA 

BNE 

BIRDFALL 




143E 

A9 00 

LDA 

#0 

;set-up to start a new level 


1440 

8D IB DO 

STA 

PRIORITY 




1443 

4C68 14 

JMP 

LOSELIFE 

139C 

20 IB 08 LEVELINC 

JSR 

GRID 

1446 

A9 40 DEATH 

LDA 

#$40 

139F 

AD El 03 

LDA 

LEVEL 

1448 

8D IB DO 

STA 

PRIORITY 

13A2 

C9 OF 

CMP 

#$F 

144B 

4C 18 14 

JMP 

BIRDFALL 

13A4 

FO 03 

BEQ 

PRNEWLVL 

144E 

AD DO 03 NEWSTART 

LDA 

SQRCOMP 

13A6 

EE El 03 

INC 

LEVEL 

1451 

85 FC 

STA 

$FC 

13A9 

A9 60 PRNEWLVL 

LDA 

#$60 

1453 

A9 60 

LDA 

#$60 

13AB 

8D 21 13 

STA 

JTR1 

1455 

8D DD13 

STA 

JTR3 

13AE 

8D 2F 13 

STA 

JTR2 

1458 

20 A9 13 

JSR 

PRNEWLVL 

13B1 

20 OF 13 

JSR 

PRINTLVL 

145B 

A9 4C 

LDA 

#$4C 

13B4 

A9 4C 

LDA 

#$4C 

145D 

8D DD 13 

STA 

JTR3 

13B6 

8D 21 13 

STA 

JTR1 

1460 

A5FC 

LDA 

$FC 

13B9 

8D 2F 13 

STA 

JTR2 

1462 

8DD0 03 

STA 

SQRCOMP 

13BC 

20 EO 13 

JSR 

GETREADY 

1465 

4CC7 OB 

JMP 

BIRD 

13BF 

20 CO 16 

JSR 

INCLIVES 

1468 

8D 15 DO LQSELIFE 

STA 

SPRITEON 

13C2 

A9FF 

LDA 

#$FF 





13C4 

8D 15 DO 

STA 

SPRITEON 

decrease lives and check for end of game 

13C7 

AD El 03 

LDA 

LEVEL 





13CA 

85 04 

STA 

$4 

146B 

AD 18 07 

LDA 

$718 


177 










Chapter 3 


146E 

C9 30 

CMP 

#$30 

1512 

E8 

INX 


1470 

DO 15 

BNE 

LIVES1 

1513 

EO OA 

CPX 

#$A 

1472 

AD 17 07 

LDA 

$717 

1515 

DO F5 

BNE 

GOLOOP 

1475 

C9 30 

CMP 

#$30 

1517 

EE D7 03 GOPAUSE 

INC 

$3D7 

1477 

DO 03 

BNE 

LIVES2 

151A 

DO FB 

BNE 

GOPAUSE 

1479 

4C FC 14 

JMP 

GAMEOVER 

151C 

EE D8 03 

INC 

$3D8 

147C 

A9 39 LIVES2 

LDA 

#$39 

151F 

DO F6 

BNE 

GOPAUSE 

147E 

8D 18 07 

STA 

$718 

1521 

EE D9 03 

INC 

$3D9 

1481 

CE 17 07 

DEC 

$717 

1524 

ADD9 03 

LDA 

$3D9 

1484 

4C 8A 14 

JMP 

STRUVES 

1527 

C9 05 

CMP 

#5 

1487 

CE 18 07 LIVES1 

DEC 

$718 

1529 

DO EC 

BNE 

GOPAUSE 

148A 

A9 40 STRUVES 

LDA 

#$40 





148C 

8D15 DO 

STA 

SPRITEON 

start game from beginning 



148F 

A9 A9 

LDA 

#$A9 





1491 

8D OC DO 

STA 

V+$C 

152B 

A2 00 VRESTORE 

LDX 

#0 

1494 

A9 9E 

LDA 

#$9E 

152D 

9A 

TXS 


1496 

8D OD DO 

STA 

V+$D 

152E 

4C0D08 

JMP 

START 

1499 

A9 80 

LDA 

#$80 

1531 

9F. DATAGMVR 

.BYT 

$9F 

149B 

8D FE 07 

STA 

SPOINTER+6 

1532 

47 41 4D 

.ASC 

"GAME OVER' 

149E 

AD 17 07 

LDA 

$717 

153B 

A9 OE DEMOSET 

LDA 

#$E 

14A1 

8D90 13 

STA 

LIFE1 

153D 

8D 15 DO 

STA 

SPRITEON 

14A4 

AD 18 07 

LDA 

$718 

1540 

A9 60 

LDA 

#$60 

14A7 

8D 95 13 

STA 

LIFE2 

1542 

8D CB OD 

STA 

EXITLZRD 

14AA 

4C 4E 14 

JMP 

NEWSTART 

1545 

4C D5 12 

JMP 

DEMO 

14AD 

A9 30 SETLIVES 

LDA 

#$30 





14AF 

8D90 13 

STA 

LIFE1 

move lizards in demo 



14B2 

A9 35 

LDA 

#$35 





14B4 

8D 95 13 

STA 

LIFE2 

1548 

20 95 OD LZRDDEMO 

JSR 

LIZARD 

14B7 

4C C7 OE 

JMP 

MOVESPRD 

154B 

EE EC 03 

INC 

$3EC 




154E 

DO F8 

BNE 

LZRDDEMO 

;print "change to (a square)" 


1550 

EE ED 03 

INC 

$3ED 




1553 

AD ED 03 

LDA 

$3ED 

14BA 

A9 OC CHANGETO 

LDA 

#$C 

1556 

C9 09 

CMP 

#9 

14BC 

85 D3 

STA 

$D3 

1558 

DO EE 

BNE 

LZRDDEMO 

14BE 

A9 16 

LDA 

#$16 

155A 

A9 00 

LDA 

#0 

14C0 

85 D6 

STA 

$D6 

155C 

8D ED 03 

STA 

$3ED 

14C2 

20 10 E5 

JSR 

PCURSOR 

155F 

4C 37 13 

JMP 

DEMORAUS 

14C5 

A2 00 

LDX 

#0 

1562 

A9 4C SETSPEED 

LDA 

#$4C 

14C7 

BD D5 14 CTLOOP 

LDA 

DCHANGE.X 

1564 

8D CB OD 

STA 

EXITLZRD 

14CA 

20 D2 FF 

JSR 

PRINT 





14CD 

E8 

INX 


set speed of level 



14CE 

EO 17 

CPX 

#$17 





14D0 

DO F5 

BNE 

CTLOOP 

1567 

A9 10 

LDA 

#$10 

14D2 

4C EC 14 

JMP 

PRCOLOR 

1569 

38 

SEC 


14D5 

05 43 48 DCHANGE 

.ASC 

"{WHT}CHANGE TO 

156A 

ED El 03 

SBC 

LEVEL 




it 

156D 

4A 

LSR 


14DF 

20 12 E9 

.BYT 

$20,$12,$E9,$20,$9 

156E 

8D 7E 15 

STA 

LVLSPEED 




2,$E9,$11 

1571 

EE 7E 15 

INC 

LVLSPEED 

14E6 

9D 9D 9D 

.BYT 

$9D,$9D,$9D,$98,$ 

1574 

4C C7 OB 

JMP 

BIRD 




B7,$B7 









pause to control speed of level 



prim goal color to change the squares to 









1577 

EE Cl 03 MAINPAUS 

INC 

$3C1 

14EC 

AD El 03 PRCOLOR 

LDA 

LEVEL 

157A 

AD Cl 03 

LDA 

$3C1 

14EF 

18 

CLC 

157D 

LVLSPEED 

= 

*+1 

14F0 

69 01 

ADC 

#1 

157D 

C9 00 

CMP 

#0 

14F2 

8D86 DB 

STA 

$0888 

157F 

DO F6 

BNE 

MAINRAUS 

14F5 

8D 87 DB 

STA 

$DB87 

1581 

A9 00 

LDA 

#0 

14F8 

8D88 DB 

STA 

$DB88 

1583 

8D Cl 03 

STA 

$3C1 

14FB 

60 

RTS 

1586 

EE 34 03 

INC 

$334 




1589 

4CCA0B 

JMP 

RTNBIRD 

print 

'game over 











select random location for egg 



14FC 

20 4A 13 GAMEOVER 

JSR 

CLEARBOT 





14FF 

A9 0E 

LDA 

#$E 

158C 

20 97 17 EGGRND 

JSR 

GETRND 

1501 

85 D3 

STA 

$D3 

158F 

C9B0 

CMP 

#$B0 

1503 

A9 16 

LDA 

#$16 

1591 

B0F9 

BCS 

EGGRND 

1505 

85 D6 

STA 

$D6 

1593 

29 F8 

AND 

#$F8 

1507 

20 10 E5 

JSR 

PCURSOR 

1595 

18 

CLC 


150A 

A2 00 

LDX 

#0 

1596 

69 06 

ADC 

#6 

150C 

BD 31 15 GOLOOP 

LDA 

DATAGMVR.X 

1598 

8D OD 50 

STA 

$500D 

150F 

20 D2 FF 

JSR 

PRINT 

159B 

20 97 17 

JSR 

GETRND 










The Source Code 


159E 

29 F8 

AND 

#$F8 

15AO 

18 

CLC 

15A1 

69 01 

ADC 

#1 

15A3 

8D0C50 

STA 

$500C 

15A6 

20 D8 0C 

JSR 

SLSU 

15A9 

A0 00 

LDY 

#0 

15AB 

B1 FD 

LDA 

($FD),Y 

15AD 

C9E9 

CMP 

#$E9 

15AF 

DO OB 

BNE 

EGGRND 

15B1 

AD OC 50 

LDA 

$500C 

15B4 

8D OE DO 

STA 

V+$E 

15B7 

AD OD 50 

LDA 

$5000 

15BA 

8D OF DO 

STA 

V+$F 

15BD 

A9 4C 

LDA 

#$4C 

15BF 

8D FO OC 

STA 

JTR4 

15C2 

4C CD 15 

JMP 

PUTINDO 

15C5 

A9 60 CSLSUTR 

LDA 

#$60 

15C7 

8D FO OC 

STA 

JTR4 

15CA 

4C OA 16 

JMP 

PUTIN50 

15CD 

A9 DO PUTINDO 

LDA 

#$D0 

15CF 

8DE3 0C 

STA 

LV2 

15D2 

8DDA0C 

STA 

LV1 

15D5 

4C C7 OB 

JMP 

BIRD 

15D8 




;check 

if egg pause is on 



15D8 

AD C5 03 CHKEGGP 

LDA 

EGGRMJS 

15DB 

FO 03 

BEQ 

EGGPAUSE 

15DD 

4C 37 16 

JMP 

EGGPCNTR 

icounter until egg is to be put on or taken 

off screen 

15E0 

EE CA 03 EGGFAUSE 

INC 

$3CA 

15E3 

AD CA 03 

LDA 

$3CA 

15E6 

C9 70 

CMP 

#$70 

15E8 

DO 17 

BNE 

EXITEGGP 

15EA 

A9 00 

LDA 

#0 

15EC 

8DCA03 

STA 

$3CA 

15EF 

EE CB 03 

INC 

$3CB 

15F2 

AD CB 03 

LDA 

$3CB 

15F5 

DO OA 

BNE 

EXITEGGP 

;see if 

egg is to be put on or off 

screen 


15F7 

AD OF DO 

LDA 

V+$F 

15FA 

FO 08 

BEQ 

PUTEGGON 

15FC 

A9 00 

LDA 

#0 

15FE 

8D OF DO 

STA 

V+$F 

1601 

4C 72 16 EXUEGGP 

JMP 

COLISION 

1604 

20 C5 15 PUTEGGON 

JSR 

CSLSUTR 

1607 

4C 01 16 

JMP 

EXITEGGP 

160A 

A9 50 PUTIN50 

LDA 

#$50 

160C 

8D E3 OC 

STA 

LV2 

160F 

8DDA0C 

STA 

LV1 

1612 

4C 8C 15 

JMP 

EGGRND 

see if 

bird has landed on egg 



1615 

AD OC DO CHECKEGG 

LDA 

V+$C 

1618 

CD OE DO 

CMP 

V+$E 

161B 

DO 17 

BNE 

NOTONEGG 

161D 

ADODDO 

LDA 

V+$D 

1620 

CD OF DO 

CMP 

V+$F 

1623 

DO OF 

BNE 

NOTONEGG 

1625 

A2 02 

LDX 

#2 

1627 

20 EC 16 

JSR 

INCSCR 

162A 

A9 7F 

LDA 

#$7F 

162C 

8DC5 03 

STA 

Esemus 

162F 

A9 00 

LDA 

#0 

1631 

8D OF DO 

STA 

V+$F 

1634 

4C D8 OC NOTDNEGG 

JMP 

SLSU 


icounter until egg pause ends 


1637 

EE C6 03 EGGPCNTR 

INC 

$3C6 

163A 

AD C6 03 

LDA 

$306 

163D 

DO 30 

BNE 

EXITEC 

163F 

EE C7 03 

INC 

$3C7 

1642 

ADC7 03 

LDA 

$3C7 

1645 

C9 16 

CMP 

#$16 

1647 

DO 26 

BNE 

EXITEC 

1649 

A9 00 

LDA 

#0 

164B 

8DC7 03 

STA 

$3C7 

164E 

EEC8 03 

INC 

$3C8 

1651 

ADC8 03 

LDA 

$3C8 

1654 

C9 0B 

CMP 

#$B 

1656 

90 08 

BCC 

NOFLASH 

flash bird color 



1658 

AD 2D DO 

LDA 

SCOLOR+6 

165B 

49 08 

EOR 

#8 

165D 

8D 2D DO 

STA 

SCOLOR+6 

1660 

AD C8 03 NOFLASH 

LDA 

$3C8 

1663 

C9 10 

CMP 

#$10 

1665 

DO 08 

BNE 

EXITEC 

1667 

A9 00 

LDA 

#0 

1669 

8DC8 03 

STA 

$3C8 

166C 

8D C5 03 

STA 

EGGFAUS 

166F 

4C D5 16 EXITEC 

JMP 

ACOUNTER 

1672 

EE 2E DO COLISION 

INC 

SCOLOR+7 


;see if bird has run into any predators 


1675 

A2 0A 

LDX 

#$A 

1677 

BD 00 DO CLSNLOOP 

LDA 

v,x 

167A 

18 

CLC 

167B 

7D 9F 16 

ADC 

DISTANCE* 

167E 

38 

SEC 

167F 

ED OC DO 

SBC 

V+$C 

1682 

C9 05 

CMP 

#5 

1684 

BO 12 

BCS 

NEXTCCHK 

1686 

BD 01 DO 

LDA 

V+1,X 

1689 

18 

CLC 

168A 

7DA0 16 

ADC 

DISTANCE+1,X 

168D 

38 

SEC 

168E 

EDODDO 

SBC 

V+$D 

1691 

C9 05 

CMP 

#5 

1693 

BO 03 

BCS 

NEXTCCHK 

1695 

4C68 17 

JMP 

CHKSUPER 

1698 

CA NEXTCCHK 

DEX 


1699 

CA 

DEX 


169A 

10 DB 

BPL 

CLSNLOOP 

169C 

4C 95 OD 

JMP 

LIZARD 

169F 

04 OB FF DISTANCE 

.BYT 

4,11,255,10,255,10, 

255,10,5,5,3,4 

16AB 

A9 60 DEATHSET 

LDA 

#$60 

16AD 

8D 6E 13 

STA 

STR1 

16B0 

A9 00 

LDA 

#0 

16B2 

8D OF D4 

STA 

SID+$F 

16B5 

20 55 13 

JSR 

BCRAUSE 

16B8 

A9 8D 

LDA 

#$8D 

16BA 

8D 6E 13 

STA 

STR1 

16BD 

4C46 14 

JMP 

DEATH 

lincrease # of lives 



16C0 

EE 95 13 INCLIVES 

INC 

LIFE2 

16C3 

AD 95 13 

LDA 

LIFE2 

16C6 

C9 3A 

CMP 

#$3A 

16C8 

DO 08 

BNE 

LT10 

16GA 

A9 30 

LDA 

#$30 

16CC 

8D 95 13 

STA 

LIFE2 










Chapter 3 


16CF 

EE 90 13 

INC 

LIFE1 

16D2 

4C 7A OB LT10 

JMP 

SPRSET2 

16D5 

EE Cl 03 ACOUNTER 

INC 

$3C1 

16D8 

AD Cl 03 

LDA 

$3C1 

16DB 

C9 04 

CMP 

#4 

16DD 

DO 08 

BNE 

NOBIRD 

16DF 

A9 00 

LDA 

#0 

16E1 

8D Cl 03 

STA 

$3C1 

16E4 

4C C7 OB 

JMP 

BIRD 

16E7 

4C D8 15 NOBIRD 

JMP 

CHKE6GP 


;add to score 


16EA 

A2 03 ADDSCORE 

LDX 

#3 

16EC 

FE 03 07 INCSCR 

INC 

$703,X 

16EF 

BD03 07 

LDA 

$703,X 

16F2 

C9 3A 

CMP 

#$3A 

16F4 

DO 08 

BNE 

EXITSCR 

16F6 

A9 30 

LDA 

#$30 

16F8 

9D 03 07 

STA 

$703,X 

16FB 

CA 

DEX 


16FC 

10 EE 

BPL 

INCSCR 

16FE 

4C 16 17 EXITSCR 

JMP 

SCRTOMEM 


determine value to add to score 


1701 

CO 00 INCSCORE 

CPY 

#0 

1703 

DO OE 

BNE 

EXITIS 

1705 

84 FC 

STY 

$FC 

1707 

A4 04 

LDY 

$4 

1709 

20 EA 16 NOOFINC 

JSR 

ADDSCORE 

170C 

88 

DEY 


170D 

CO 01 

CPY 

#1 

170F 

DO F8 

BNE 

NOOFINC 

1711 

A4FC 

LDY 

$FC 

1713 

A5 04 EXITIS 

LDA 

$4 

1715 

60 

RTS 



;put score into memory 


1716 

A2 04 SCRTOMEM 

LDX 

#4 

1718 

BD 03 07 SMLOOP 

LDA 

$703,X 

171B 

9D F3 08 

STA 

SCRMEM.X 

171E 

CA 

DEX 


171F 

10 F7 

BPL 

SMLOOP 

1721 

4C34 17 

JMP 

HISCORE 

Iblank out score 



1724 

A2 04 BLANKSCR 

LDX 

#4 

1726 

A9 30 

LDA 

#$30 

1728 

9D 03 07 BSLOOP 

STA 

$703,X 

172B 

CA 

DEX 


172C 

10 FA 

BPL 

BSLOOP 

172E 

20 73 12 

JSR 

SETCHK 

1731 

4C 74 13 

JMP 

INCLEVEL 


;check if high score is beaten 


1734 

A2 00 HISCORE 

LDX 

#0 

1736 

38 HSCHECK 

SEC 


1737 

BDB4 06 

LDA 

$6B4,X 

173A 

FD 03 07 

SBC 

$703,X 

173D 

30 09 

BMI 

ISHIGH 

173F 

E9 01 

SBC 

#1 

1741 

10 13 

BPL 

NOTHIGH 

1743 

E8 

INX 


1744 

EO 05 

CPX 

#5 

1746 

DO EE 

BNE 

HSCHECK 


1748 

A2 04 ISHIGH 

LDX 

#4 

174A 

BD 03 07 IHLOOP 

LDA 

$703,X 

174D 

9D B4 06 

STA 

$6B4,X 

1750 

9D E3 08 

STA 

HISCRMEM.X 

1753 

CA 

DEX 


1754 

10 F4 

BPL 

IHLOOP 

1756 

60 NOTHIGH 

RTS 


;ignore 

collision if bird is high in super jump 

1757 

AD 36 03 SPRON 

LDA 

$336 

175A 

C9 06 

CMP 

#6 

175C 

90 07 

BCC 

STILLDIE 

175E 

C9 15 

CMP 

#$15 

1760 

BO 03 

BCS 

STILLDIE 

1762 

4C 98 16 

JMP 

NEXTCCHK 

1765 

4C AB 16 ST1LLDIE 

JMP 

DEATHSET 

1768 

AD FE 03 CHKSUPER 

LDA 

SPRJMP 

176B 

DOEA 

BNE 

SPRON 

176D 

4C AB 16 

JMP 

DEATHSET 

•fill section of memory with random numbers 

1770 

A9 30 RNDMEM 

LDA 

#$30 

1772 

8D 7C 17 

STA 

CRRNTMEM+2 

1775 

A2 00 RNDLOOP1 

LDX 

#0 

1777 

AD IB D4 RNDLOOP2 

LDA 

RANDOM 

177A 

9D 00 30 CRRNTMEM 

STA 

$3000,X 

177D 

E8 

INX 


177E 

DO F7 

BNE 

RNDL00P2 

1780 

EE 7C 17 

INC 

CRRNTMEM+2 

1783 

AD 7C 17 

LDA 

CRRNTMEM+2 

1786 

C9 50 

CMP 

#$50 

1788 

DO EB 

BNE 

RNDLOOP1 

178A 

A9 30 

LDA 

#$30 

178C 

8D BO 17 

STA 

RNDLOC+2 

178F 

A9 00 

LDA 

#0 

1791 

8D AF 17 

STA 

RNDLOC+1 

1794 

4C B2 17 

JMP 

SOUNDSU2 


;retum accumulator with a random number 


1797 

AD AF 17 GETRND 

LDA 

RNDLOC+1 

179A 

18 

CLC 


179B 

69 01 

ADC 

#1 

179D 

8D AF 17 

STA 

RNDLOC+1 

17A0 

AD BO 17 

LDA 

RNDLOC+2 

17A3 

69 00 

ADC 

#0 

17A5 

C9 4F 

CMP 

#$4F 

17A7 

DO 02 

BNE 

NOWRAP 

17A9 

A9 30 

LDA 

#$30 

17AB 

8D BO 17 NOWRAP 

STA 

RNDLOC+2 

17AE 

AD 00 30 RNDLOC 

LDA 

$3000 

17B1 

60 

RTS 


;sound set-up 



17B2 

A9 El SOUNDSU2 

LDA 

#$E1 

17B4 

8D 14 D4 

STA 

SID+$14 

17B7 

A9 21 

LDA 

#$21 

17B9 

8D 12 D4 

STA 

SID+$12 

17BC 

A9 OF 

LDA 

#$F 

17BE 

8D 18 D4 

STA 

SID+$18 

17C1 

A9 00 

LDA 

#0 

17C3 

8D 05 D4 

STA 

SID+5 

17C6 

8D FE 2F 

STA 

$2FFE 

17C9 

8D FF 2F 

STA 

$2FFF 

17CC 

4C F9 18 

JMP 

SETRSTR 

;sound for bird jump 



17CF 

AE 36 03 BJSOUND 

LDX 

$336 


;store new high score 













The Source Code 


17D2 

BD DB 17 

LDA 

DATABJS,X 

1889 

BD BA 18 

LDA 

DTUNE,X 

17D5 

8D OF D4 

STA 

SID+$F 

188C 

18 

CLC 


17D8 

4C E0 OB 

JMP 

EXITBIRD 

188D 

69 04 

ADC 

#4 

17DB 

00 80 7C DATABJS 

.BYT 

0,$80,$7C,$78,$74 

188F 

8D08 D4 

STA 

SID+$8 

17E0 

70 6E 6C 

.BYT 

$70,$6E,$6C,$6A,$6 

1892 

A9 81 

LDA 

#$81 




8,$66 

1894 

8D04 D4 

STA 

SID+4 

17E6 

00 00 00 

.BYT 

O.O.O.O.O.O.O.O 

1897 

A9 80 

LDA 

#$80 

17EE 

00 00 00 

.BYT 

0,0,0,0,0,0,0 

1899 

8D04 D4 

STA 

SID+4 





189C 

4C B7 18 

JMP 

EXITTUNE 

;sound set-up 



189F 

C9 IE TUNE4 

CMP 

#$1E 

I 




18A1 

DO 14 

BNE 

EXITTUNE 

17F5 

A9 08 S0UNDSU4 

LDA 

#8 

18 A3 

EE FF 2F 

INC 

$2FFF 

17F7 

8D09 D4 

STA 

SID+9 

18A6 

A9 00 

LDA 

#0 

17FA 

8D0AD4 

STA 

SID+$A 

18A8 

8D FE 2F 

STA 

$2FFE 

17FD 

A9 77 

LDA 

#$77 

18AB 

AD FF 2F 

LDA 

$2FFF 

17FF 

80 06 04 

STA 

SID+6 

18AE 

C9 08 

CMP 

#8 

1802 

8D OD D4 

STA 

SID+$D 

18B0 

DO 05 

BNE 

EXITTUNE 

1805 

A9 41 

LDA 

#$41 

18B2 

A9 00 

LDA 

#0 

1807 

8D OB D4 

STA 

SID+$B 

18B4 

8D FF 2F 

STA 

$2FFF 

180 A 

A9 4C 

LDA 

#$4C 

18B7 

4C D3 18 EXITTUNE 

JMP 

EXITIRQ 

180C 

80 DD13 

STA 

JTR3 

18BA 

04 08 OC DTUNE 

.BYT 

4,8,12,16,20,16,12,8 

180F 

A9 00 

LDA 

#0 





1811 

8D OF 04 

STA 

SID+$F 

set new irq interrupt vector 



1814 

4C C2 18 

JMP 

SETIRQ 





; 




18C2 

78 SETIRQ 

SEI 


;tune played in interrupt 



18C3 

A9 D9 

LDA 

#<INTRRPT 

I 



18C5 

8D 14 03 

STA 

IRQ 

1817 

AD FE 2F TUNE 

LDA 

$2FFE 

18C8 

A9 18 

LDA 

#>INTRRPT 

181A 

C9 01 

CMP 

#1 

18CA 

8D 15 03 

STA 

IRQ+1 

181C 

DO IB 

BNE 

TUNE1 

18CD 

58 

CLI 


181E 

AEFF 2F 

LDX 

$2FFF 

18CE 

A9 00 

LDA 

#0 

1821 

BD BA 18 

LDA 

DTUNE.X 

18D0 

4C 33 OC 

JMP 

CTB1 

1824 

8D 08 D4 

STA 

SID+8 

18D3 

EE FE 2F EXITIRQ 

INC 

$2FFE 

1827 

A9 28 

LDA 

#$28 

18D6 

4C31 EA 

JMP 

IRQENTRY 

1829 

8D 01 D4 

STA 

SID+1 

18D9 

EE FD 2F INTRRPT 

INC 

$2FFD 

182C 

A9 81 

LDA 

#$81 

18DC 

AD FD 2F 

LDA 

$2FFD 

182E 

8D04 D4 

STA 

SID+4 

18DF 

29 01 

AND 

#1 

1831 

A9 80 

LDA 

#$80 

18E1 

DO 03 

BNE 

JMPTUNE 

1833 

8D04 D4 

STA 

SID+4 

18E3 

4C31 EA 

JMP 

IRQENTRY 

1836 

4C B7 18 

JMP 

ExrrruNE 

18E6 

4C 17 18 JMPTUNE 

JMP 

TUNE 

1839 

C9 OF TUNE1 

CMP 

#$F 





183B 

DO 28 

BNE 

TUNE2 

check shift key to pause all game action 


183D 

A9 40 

LDA 

#$40 





183F 

8D OB D4 

STA 

SID+$B 

18E9 

AD8D02 PAUSGAME 

LDA 

SHIFT 

1842 

A9 41 

LDA 

#$41 

18EC 

DO 03 

BNE 

PAUSEON 

1844 

8D OB D4 

STA 

SID+$B 

18EE 

4C77 15 

JMP 

MAINPAUS 

1847 

A9 IE 

LDA 

#$1E 

18F1 

A9 00 PAUSEON 

LDA 

#0 

1849 

8D 01 D4 

STA 

SID+1 

18F3 

8D OF D4 

STA 

SID+$F 

184C 

EE FF 2F 

INC 

$2FFF 

18F6 

4C E9 18 

JMP 

PAUSGAME 

184F 

AE FF 2F 

LDX 

$2FFF 





1852 

BD BA 18 

LDA 

DTUNE.X 

set new vector for non-maskable interrupt 

(restore key) 

1855 

8D 08 D4 

STA 

SID+8 





1858 

A9 81 

LDA 

#$81 

18F9 

A9 2B SETRSTR 

LDA 

#<VRESTORE 

185A 

8D04 D4 

STA 

SID+4 

18FB 

8D 18 03 

STA 

RESTORE 

185D 

A9 80 

LDA 

#$80 

18FE 

A9 15 

LDA 

#>VRESTORE 

185F 

8D04 D4 

STA 

SID+4 

1900 

8D 19 03 

STA 

RESTORE+1 

1862 

4CB7 18 

JMP 

EXITTUNE 

1903 

A9 00 

LDA 

#0 

1865 

C910 TUNE2 

CMP 

#$10 

1905 

8D 10 DO 

STA 

V+$10 

1867 

DO OF 

BNE 

TUNE3 

1908 

8D IB DO 

STA 

V+$1B 

1869 

AE FF 2F 

LDX 

$2FFF 

190B 

4C F5 17 

JMP 

S0UNDSU4 

I860 

BD BA 18 

LDA 

DTUNE.X 





186F 

18 

CLC 






1870 

69 02 

ADC 

#2 





1872 

8D 08 D4 

STA 

SID+8 





1875 

4C B7 18 

JMP 

EXITTUNE 





1878 

C918 TUNE3 

CMP 

#$18 





187A 

DO 23 

BNE 

TUNE4 





187C 

A9 40 

LDA 

#$40 





187E 

8D OB D4 

STA 

SID+$B 





1881 

A9 41 

LDA 

#$41 





1883 

8D OB D4 

STA 

SID+$B 





1886 

AE FF 2F 

LDX 

$2FFF 
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Bump-N-Run 

Source code by Tim J. Midkiff 

■ n 

n 

} ( 

n 









n 

CGOO 


*=e 

SCOOO 

C062 

8D 18 C7 

STA 

BALLMSK 


COOO 

M 

= 

$C700 

C065 

A9 00 

LDA 

#0 


cooo 

VSP 

= 

M 

C067 

8D 15 C7 

STA 

COL 


COOO 

ABSVSP 

SB 

M+6 

C06A 

8D 16 C7 

STA 

COLREG 


cooo 

COUNTER 

=B 

M+12 

C06D 

8D 17 C7 

STA 

SPCTRL 


cooo 

MSGBT 

= 

M+18 

C070 

8D IF C7 

STA 

SCORE 


cooo 

JOY 

S3 

M+19 

C073 

8D 19 C7 

STA 

BALLVX 


cooo 

SPXYNO 

SB 

M+20 

C076 

8D 1A C7 

STA 

BALLVY 


cooo 

COL 

= 

M+21 

C079 

A2 05 

LDX 

#5 


cooo 

COLREG 

= 

M+22 

C07B 

A9 00 INTVELS 

LDA 

#0 


cooo 

SPCTRL 

B 

M+23 

C07D 

9D00 C7 

STA 

VSP.X 


cooo 

BALLMSK 

= 

M+24 

C080 

9D06 C7 

STA 

ABSVSP,X 


cooo 

BALLVX 

on 

M+25 

C083 

A9 5A 

LDA 

#$5A 


cooo 

BALLVY 

= 

M+26 

C085 

9D OC C7 

STA 

COUNTER,X 


cooo 

FIREON 

S3 

M+27 

C088 

CA 

DEX 



cooo 

SCORE 

= 

M+31 

C089 

10 FO 

BPL 

INTVELS 


; reset game 



; main loop 




COOO 

A9 00 RSTGAME 

LDA 

#0 

C08B 

AD 16 C7 MNLP 

LDA 

COLREG 


C002 

8D 20 00 

STA 

$D020 

C08E 

29 03 

AND 

#3 


C005 

8D21 DO 

STA 

$0021 

C090 

C9 03 

CMP 

#3 


€008 

8D 20 C7 

STA 

$C720 

C092 

DO 50 

BNE 

NOCOL 


COOB 

8D 21 C7 

STA 

$C721 

C094 

AD 15 C7 

LDA 

COL 


COOE 

AD 16 03 

LDA 

$0316 

C097 

DO 48 

BNE 

PATCH 


C011 

8D 18 03 

STA 

$0318 

C099 

AE 00 C7 

LDX 

VSP 


COM 

AD 17 03 

LDA 

$0317 

C09C 

AC 01 C7 

LDY 

$C701 


C017 

8D 19 03 

STA 

$0319 

C09F 

AD 02 C7 

LDA 

$C702 


C01A 

A9 14 

LDA 

#$14 

C0A2 

8D00 C7 

STA 

VSP 


C01C 

8D 18 DO 

STA 

$D018 

C0A5 

AD 03 C7 

LDA 

$C703 


COIF 

A9 80 

LDA 

#$80 

C0A8 

8D 01 C7 

STA 

$C701 


C021 

8D 91 02 

STA 

$0291 

COAB 

8E 02 C7 

STX 

$C702 


C024 

A9 93 

LDA 

#$93 

COAE 

8C03 C7 

STY 

$C703 


C026 

20 D2FF 

JSR 

$FFD2 

C0B1 

AD 17 C7 

LDA 

SPCTRL 


C029 

A9 00 

LDA 

#0 

C0B4 

FO IB 

BEQ 

ENDCTRL 


C02B 

A2 80 

LDX 

#$80 

C0B6 

C9 01 

CMP 

#1 


C02D 

9D 80 3F LPO 

STA 

$3F80,X 

C0B8 

FO OD 

BEQ 

SP1CTRL 


C030 

CA 

DEX 


COBA 

A9 01 

LDA 

#1 


C031 

10 FA 

BPL 

LPO 

COBC 

8D 17 C7 

STA 

SPCTRL 


C033 

A9 18 

LDA 

#$18 

COBF 

A9 0B 

LDA 

#$0B 


C035 

8D 99 3F 

STA 

$3F99 

C0C1 

8D 15 DO 

STA 

$D015 


C038 

8DA2 3F 

STA 

$3FA2 

C0C4 

4C D1 CO 

JMP 

ENDCTRL 


C03B 

A9 3C 

LDA 

#$3C 

C0C7 

A9 03 SP1CTRL 

LDA 

#3 


C03D 

8D 9C 3F 

STA 

$3F9C 

C0C9 

8D 17 C7 

STA 

SPCTRL 


C040 

8D 9F 3F 

STA 

$3F9F 

COCC 

A9 13 

LDA 

#$13 


C043 

A2 33 

LDX 

#$33 

COCE 

8D 15 DO 

STA 

$D015 


C045 

BD4CC6LP12 

LDA 

SP12.X 

C0D1 

A2 03 ENDCTRL 

LDX 

#3 

n 

C048 

9DC4 3F 

STA 

$3FC4,X 

C0D3 

BD 06 C7 STCNT 

LDA 

ABSVSP,X 

C04B 

CA 

DEX 


C0D6 

9D OC C7 

STA 

COUNTER,X 


C04C 

10 F7 

BPL 

LP12 

C0D9 

CA 

DEX 



C04E 

20 1AC5 

JSR 

INTSCN 

CODA 

10 F7 

BPL 

STCNT 

n 

C051 

78 

SEI 


CODC 

A9 01 

LDA 

#1 

i 1 

C052 

A9 05 

LDA 

#5 

CODE 

8D 15 C7 

STA 

COL 


C054 

8D 14 03 

STA 

$0314 

C0E1 

4C 2A Cl PATCH 

JMP 

MOVEMENT 

n 

C057 

A9C2 

LDA 

#$C2 

C0E4 

AD 17 C7 NOCOL 

LDA 

SPCTRL 

C059 

8D 15 03 

STA 

$0315 

C0E7 

DO 18 

BNE 

CTRL 


C05C 

58 

CLI 


C0E9 

AD 04 C7 

LDA 

$C704 






COEC 

CD 19 C7 

CMP 

BALLVX 

n 

reset after goal 



COEF 

DO OB 

BNE 

NOMSK 





C0F1 

AD 05 C7 

LDA 

$C705 


C05D 

20 80 C2 RSTGOAL 

JSR 

INTSP 

C0F4 

CD 1A C7 

CMP 

BALLVY 


COSO 

A9FF 

LDA 

#$FF 

C0F7 

DO 03 

BNE 

NOMSK 

i 1 


n 
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The Source Code 


C0F9 

4C 01 Cl 

JMP 

CTRL 

COFC 

A9 FF NOMSK 

LDA 

#$FF 

COFE 

8D 18 C7 

STA 

BALLMSK 

C101 

A9 00 CTRL 

LDA 

#0 

Cl 03 

8D 15 C7 

STA 

COL 

C106 

AD 16 C7 

LDA 

COLREG 

Cl 09 

2D 18 C7 

AND 

BALLMSK 

C10C 

29 07 

AND 

#7 

C10E 

C9 05 

CMP 

#5 

C110 

DO OA 

BNE 

GAPSP2 

C112 

A9 01 

LDA 

#1 

Cl 14 

8D 17 C7 

STA 

SPCTRL 

Cl 17 

A9 0B 

LDA 

#$08 

C119 

8D 15 DO 

STA 

$D015 

C11C 

C9 06 CAPSP2 

CMP 

#6 

CUE 

DO OA 

BNE 

MOVEMENT 

Cl 20 

A9 03 

LDA 

#3 

Cl 22 

8D 17 C7 

STA 

SPCTRL 

Cl 25 

A9 13 

LDA 

#$13 

Cl 27 

8D 15 DO 

STA 

$D015 

C12A 

A2 00 MOVEMENT 

LDX 

#0 

C12C 

8E 14 C7 

SIX 

SPXYNO 

C12F 

A9 09 

LDA 

#9 

Cl 31 

8D 12 C7 

STA 

MSGBT 

C134 

AD 01 DC 

LDA 

$DC01 

Cl 37 

8D 13 C7 

STA 

JOY 

C13A 

20 DF C2 

JSR 

CKVEL 

Cl 3D 

A2 02 

LDX 

#2 

C13F 

8E 14 C7 

STX 

SPXYNO 

Cl 42 

A9 12 

LDA 

#$12 

C144 

8D 12 C7 

STA 

MSGBT 

Cl 47 

AD 00 DC 

LDA 

$DCOO 

C14A 

8D 13 C7 

STA 

JOY 

C14D 

20 DFC2 

JSR 

CKVEL 

Cl 50 

A2 04 

LDX 

#4 

Cl 52 

8E 14 C7 

STX 

SPXYNO 

C155 

A9 24 

LDA 

#$24 

Cl 57 

8D 12 C7 

STA 

MSGBT 

C15A 

AD 04 C7 

LDA 

$C704 

C15D 

8D 19 C7 

STA 

BALLVX 

Cl 60 

ADOS C7 

LDA 

$C705 

Cl 63 

8D 1A C7 

STA 

BALLVY 

Cl 66 

BD 0CC7 

LDA 

COUNTER,X 

Cl 69 

DD06 C7 

CMP 

ABSVSP.X 

C16C 

FO 06 

BEQ 

BVELY 

C16E 

DE OC C7 

DEC 

COUNTER,X 

C171 

4C 7E Cl 

JMP 

CKBVX 

Cl 74 

A9 5A BVELY 

LDA 

#$5A 

Cl 76 

9D OC C7 

STA 

COUNTER,X 

Cl 79 

AO 02 

LDY 

#2 

C17B 

20 E4C3 

JSR 

MVSPY 

C17E 

EE 14 C7 CKBVX 

INC 

SPXYNO 

Cl 81 

AE 14 C7 

LDX 

SPXYNO 

C184 

BD0CC7 

LDA 

COUNTER,X 

Cl 87 

DD06C7 

CMP 

ABSVSP.X 

C18A 

FO 06 

BEQ 

BVELX 

C18C 

DE OC C7 

DEC 

COUNTER,X 

C18F 

4C 02 C2 

JMP 

REPEAT 

Cl 92 

A9 5A BVELX 

LDA 

#$5A 

C194 

9D OC C7 

STA 

COUNTER,X 

Cl 97 

AO 02 

LDY 

#2 

C199 

20 20 C4 

JSR 

MVSPX 

C19C 

AE IF C7 

LDX 

SCORE 

C19F 

FO 61 

BEQ 

REPEAT 

C1A1 

A9 00 

LDA 

#0 

Cl A3 

8D 15 DO 

STA 

$B015 

C1A6 

FE IF C7 

INC 

SCORE,X 

C1A9 

A2 01 

LDX 

#1 

C1AB 

18 

CLC 


C1AC 

20 FO FF 

JSR 

$FFFO 

C1AF 

AE IF C7 

LDX 

SCORE 

C1B2 

BD IF C7 

LDA 

SCORE,X 


C1B5 

OA 

ASL 

A 

C1B6 

AA 

TAX 


C1B7 

BD80C6 

LDA 

NOS,X 

Cl BA 

20 D2 FF 

JSR 

$FFD2 

C1BD 

E8 

INX 


Cl BE 

BD80C6 

LDA 

NOS.X 

C1C1 

20 D2 FF 

JSR 

$FFD2 

C1C4 

A2 64 

LDX 

#$64 

C1C6 

AO FF XLP 

LDY 

#$FF 

C1C8 

88 YLP 

DEY 


C1C9 

DO FD 

BNE 

YLP 

C1CB 

CA 

DEX 


C1CC 

DO F8 

BNE 

XLP 

C1CE 

AE IF C7 

LDX 

SCORE 

C1D1 

BD IF C7 

LDA 

SCORE,X 

C1D4 

C9 OF 

CMP 

#$0F 

C1D6 

DO 27 

BNE 

NOEND 

C1D8 

A2 0C 

LDX 

#$0C 

Cl DA 

AO 10 

LDY 

#$10 

Cl DC 

18 

CLC 


C1DD 

20 FO FF 

JSR 

$FFFO 

C1E0 

A2 2C 

LDX 

#$2C 

C1E2 

20 E3 C5 

JSR 

TITLE 

C1E5 

A2 0E 

LDX 

#$0E 

C1E7 

AO OB 

LDY 

#$0B 

C1E9 

18 

CLC 


C1EA 

20 FO FF 

JSR 

$FFFO 

Cl ED 

A2 41 

LDX 

#$41 

C1EF 

20 E3 C5 

JSR 

TITLE 

C1F2 

AD 01 DCENDLP 

LDA 

$DC01 

C1F5 

ODOO DC 

ORA 

$DCOO 

C1F8 

29 10 

AND 

#$10 

Cl FA 

DO F6 

BNE 

ENDLP 

C1FC 

4COO CO 

JMP 

RSTGAME 

C1FF 

4C 5D CO NOEND 

JMP 

RSTGOAL 

C202 

4C 8B CO REPEAT 

JMP 

MNLP 


handle irq sprite collisions 


C205 

AD IE DO IRQ 

LDA 

$D01E 

C208 

8D 16 C7 

STA 

COLREG 

C20B 

29 03 

AND 

#3 

C20D 

C9 03 

CMP 

#3 

C20F 

DO OE 

BNE 

RETIRQ 

C211 

A2 00 

LDX 

#0 

C213 

20 22 C2 

JSR 

SEP 

C216 

E8 

INX 


C217 

20 22 C2 

JSR 

SEP 

C21A 

A9 OF 

LDA 

#$0F 

C21C 

8D 19 DO 

STA 

$0019 

C21F 

4C 31 EA RETtRQ 

JMP 

$EA31 

; separate players after collision 



C222 

BD 00 DO SEP 

LDA 

$0000,X 

C225 

DD02 DO 

CMP 

$0002,X 

C228 

FO 55 

BEQ 

ENDSEP 

C22A 

10 2B 

BPL 

P1GTP2 

C22C 

DEOO DO 

DEC 

$DOOO,X 

C22F 

DE 06 DO 

DEC 

$D006,X 

C232 

10 OC 

BPL 

SCNT1 

C234 

EO 01 

CPX 

#1 

C236 

FO 08 

BEQ 

SCNT1 

C238 

A9F6 

LDA 

#$F6 

C23A 

2D 10 DO 

AND 

$0010 

C23D 

8D 10 DO 

STA 

$D010 

C240 

FE 02 DO SCNT1 

INC 

$D002,X 

C243 

FE 08 DO 

INC 

$D008,X 

C246 

DO 37 

BNE 

ENDSEP 

C248 

EO 01 

CPX 

#1 

C24A 

FO 33 

BEQ 

ENDSEP 

C24C 

A9 12 

LDA 

#$12 


183 






Chapter 3 


C24E 

OD 10 DO 

ORA 

$D010 

C251 

8D 10 DO 

STA 

$D010 

C254 

4C 7F C2 

JMP 

ENDSEP 

C257 

FE 00 DO P1GTP2 

INC 

$DOOO,X 

C25A 

FE 06 DO 

INC 

$D006,X 

C25D 

DO OC 

BNE 

SCNT2 

C25F 

EO 01 

CPX 

#1 

C261 

FO 08 

BEQ 

SCNT2 

C263 

A9 09 

LDA 

#9 

C265 

OD 10 DO 

ORA 

$D010 

C268 

8D 10 DO 

STA 

$D010 

C26B 

DE 02 DO SCNT2 

DEC 

$D002,X 

C26E 

DE08 DO 

DEC 

$D008,X 

C271 

10 OC 

BPL 

ENDSEP 

C273 

EO 01 

CPX 

#1 

C275 

FO 08 

BEQ 

ENDSEP 

C277 

A9 ED 

LDA 

#$ED 

C279 

2D 10 DO 

AND 

•SD010 

C27C 

8D 10 DO 

STA 

$D010 

C27F 

60 ENDSEP 

RTS 


initialize sprites 



C280 

A9 4A INTSP 

LDA 

#$4A 

C282 

8D00 DO 

STA 

$DOCO 

C285 

8D 06 DO 

STA 

$D006 

C288 

A9 90 

LDA 

#$90 

C28A 

8D 01 DO 

STA 

$D0O1 

C28D 

8D 03 DO 

STA 

SD003 

C290 

8D 05 DO 

STA 

$D005 

C293 

8D 07 DO 

STA 

$D007 

C296 

8D09 DO 

STA 

$D009 

C299 

8D OB DO 

STA 

$D00B 

C29C 

A9 OF 

LDA 

#$0F 

C29E 

8D02 DO 

STA 

$D002 

C2A1 

8D 08 DO 

STA 

$D008 

C2A4 

A9 AC 

LDA 

#$AC 

C2A6 

8D OA DO 

STA 

$D00A 

C2A9 

8D04 DO 

STA 

$D004 

C2AC 

A9 12 

LDA 

#$12 

C2AE 

8D 10 DO 

STA 

$D010 

C2B1 

A9FF 

LDA 

#$FF 

C2B3 

8D F8 07 

STA 

$07F8 

C2B6 

8D F9 07 

STA 

$07F9 

C2B9 

A9FE 

LDA 

#$FE 

C2BB 

8DFA 07 

STA 

$07FA 

C2BE 

8D FB 07 

STA 

$07FB 

C2C1 

8D FC 07 

STA 

$07FC 

C2C4 

A9 04 

LDA 

#4 

C2C6 

8D 27 DO 

STA 

$D027 

C2C9 

A9 07 

LDA 

#7 

C2CB 

8D 28 DO 

STA 

SD028 

C2CE 

A9 01 

LDA 

#1 

C2D0 

8D 29 DO 

STA 

$D029 

C2D3 

8D2AD0 

STA 

$D02A 

C2D6 

8D 2B DO 

STA 

$D02B 

C2D9 

A9 07 

LDA 

#7 

C2DB 

8D 15 DO 

STA 

$D015 

C2DE 

60 

RTS 


; update velocity and sprites 



C2DF 

BD0CC7CKVEL 

LDA 

COUNTER* 

C2E2 

DD06 C7 

CMP 

ABSVSP.X 

C2E5 

FO OC 

BEQ 

VELY 

C2E7 

DE OC C7 

DEC 

COUNTER,X 

C2EA 

4E 13 C7 

LSR 

JOY 

C2ED 

4E 13 C7 

LSR 

JOY 

C2F0 

4C00 C3 

JMP 

CKVELX 

C2F3 

A9 5A VELY 

LDA 

#$5A 

C2F5 

9D OC C7 

STA 

COUNTER.X 

C2F8 

20 AD C3 

JSR 

VELSP 


C2FB 

AO 00 

LDY 

#0 

C2FD 

20 E4 C3 

JSR 

MVSPY 

C300 

EE 14 C7 CKVELX 

INC 

SPXYNO 

C303 

AE 14 C7 

LDX 

SPXYNO 

C306 

BD OC C7 

LDA 

COUNTERS 

C309 

DD 06 C7 

CMP 

ABSVSP.X 

C30C 

FO OC 

BEQ 

VELX 

C30E 

DE OC C7 

DEC 

COUNTER,X 

C311 

4E 13 C7 

LSR 

JOY 

C314 

4E 13 C7 

LSR 

JOY 

C317 

4C 27 C3 

JMP 

CKFIRE 

C31A 

A9 5A VELX 

LDA 

#$5A 

C31C 

9D OC C7 

STA 

COUNTER,X 

C31F 

20 ADC3 

JSR 

VELSP 

C322 

AO 00 

LDY 

#0 

C324 

20 20 C4 

JSR 

MVSPX 

C327 

AD 14 C7 CKFIRE 

LDA 

SPXYNO 

C32A 

4D 17 C7 

EOR 

SPCTRL 

C32D 

DO 7D 

BNE 

ENDCV 

C32F 

AE 14 C7 

LDX 

SPXYNO 

C332 

4E 13 C7 

LSR 

JOY 

C335 

BO 08 

BCS 

NOFIRE 

C337 

BD IB C7 

LDA 

FIREON.X 

C33A 

FO OB 

BEQ 

NEWFIRE 

C33C 

4C ACC3 

JMP 

ENDCV 

C33F 

A9 00 NOFIRE 

LDA 

#0 

C341 

9D IB C7 

STA 

FIREON.X 

C344 

4C ACC3 

JMP 

ENDCV 

C347 

BD 00 C7 NEWFIRE 

LDA 

VSP,X 

C34A 

8D 05 C7 

STA 

$C705 

C34D 

BD 06 C7 

LDA 

ABSVSP.X 

C350 

8D OB C7 

STA 

$C70B 

C353 

BD FF C6 

LDA 

$C6FF,X 

C356 

8D04 C7 

STA 

$C704 

C359 

BD 05 C7 

LDA 

$C705,X 

C35C 

8D OA C7 

STA 

$C70A 

C35F 

A9 00 

LDA 

#0 

C361 

9D FF C6 

STA 

$C6FF,X 

C364 

9D00 C7 

STA 

VSP,X 

C367 

9D 05 C7 

STA 

$C705,X 

C36A 

9D 06 C7 

STA 

ABSVSP.X 

C36D 

BDOO DO 

LDA 

$D000,X 

C370 

8D 05 DO 

STA 

$0005 

C373 

8D OB DO 

STA 

$DOOB 

C376 

BD FF CF 

LDA 

$CFFF,X 

C379 

8D04 DO 

STA 

$D004 

C37C 

8D OA DO 

STA 

$DOOA 

C37F 

AD 12 C7 

LDA 

MSGBT 

C382 

2D 10 DO 

AND 

$0010 

C385 

FO OB 

BEQ 

BLT 

C387 

AD 10 DO 

LDA 

$0010 

C38A 

09 24 

ORA 

#$24 

C38C 

8D 10 DO 

STA 

$D010 

C38F 

4C9AC3 

JMP 

CNTCV 

C392 

AD 10 DO BLT 

LDA 

$0010 

C395 

29 DB 

AND 

#$DB 

C397 

8D 10 DO 

STA 

$0010 

C39A 

A9 07 CNTCV 

LDA 

#7 

C39C 

8D 15 DO 

STA 

$0015 

C39F 

A9 00 

LDA 

#0 

C3A1 

8D 17 C7 

STA 

SPCTRL 

C3A4 

AD 12 C7 

LDA 

MSGBT 

C3A7 

49 FF 

EOR 

#$FF 

C3A9 

8D 18 C7 

STA 

BALLMSK 

C3AC 

60 ENDCV 

RTS 



add acceleration 


C3AD 

AC 14 C7 VELSP 

LDY 

SPXYNO 

C3B0 

B9 00 C7 

LDA 

VSP.Y 

C3B3 

DO 05 

BNE 

VNO 

C3B5 

A2 00 

LDX 

#0 






The Source Code 


C3B7 

4CC5C3 

JMP 

VEND 

C45F 

90 13 

BCC 

INCX 

C3BA 

29 80 VNO 

AND 

#$80 

C461 

AD 10 DO 

LDA 

$D010 

C3BC 

F0 05 

BEQ 

VYPOS 

C464 

2D 12 C7 

AND 

MSGBT 

C3BE 

A2 01 

LDX 

#1 

C467 

FO OB 

BEQ 

INCX 

C3C0 

4CC5C3 

JMP 

VEND 

C469 

20 8DC4 

JSR 

CKSCLT 

C3C3 

A2 02 VYPOS 

LDX 

#2 

C46C 

BO 06 

BCS 

INCX 

C3C5 

BC F9 C5 VEND 

LDY 

JOYO.X 

C46E 

20 OE C5 

JSR 

NEGV 

C3C8 

4E 13 C7 

LSR 

JOY 

C471 

4C89C4 

JMP 

MXNST 

C3CB 

BO 03 

BCS 

VEL24 

C474 

FE FF CF INCX 

INC 

$CFFF,X 

C3CD 

BCFCC5 

LDY 

J0Y13.X 

C477 

FE 05 DO 

INC 

$D005,X 

C3D0 

4E 13 C7 VEL24 

LSR 

JOY 

C47A 

DO 09 

BNE 

MXST 

C3D3 

BO 03 

BCS 

JYEND 

C47C 

AD 12 C7 

LDA 

MSGBT 

C3D5 

BC FF C5 

LDY 

J0Y24.X 

C47F 

OD 10 DO 

ORA 

$D010 

G3D8 

AE 14 C7 JYEND 

LDX 

SPXYNO 

C482 

8D 10 DO 

STA 

$D010 

C3DB 

98 

T\A 


C485 

20 EA C4 MXST 

JSR 

STRNG 

C3DC 

18 

CLC 


C488 

60 

RTS 


C3DD 

7D00 C7 

ADC 

VSP.X 

C489 

20 EA C4 MXNST 

JSR 

STRNG 

C3E0 

9D00 C7 

STA 

VSP.X 

C48C 

60 

RTS 


C3E3 

60 

RTS 









; check left border 



; move 

sprite vertically 



C48D 

EO 05 CKSCLT 

CPX 

#5 

C3E4 

BD 00 C7MVSPY 

LDA 

VSP,X 

C48F 

DO 57 

BNE 

ENDCLC 

C3E7 

FO 33 

BEQ 

MYST 

C491 

AD 17 C7 

LDA 

SPCTRL 

C3E9 

29 80 

AND 

#$80 

C494 

DO 52 

BNE 

ENDCLC 

C3EB 

FO 1A 

BEQ 

MYDN 

C496 

BD FF CF 

LDA 

$CFFF.X 

C3ED 

BD 01 DO 

LDA 

$D001,X 

C499 

C9 36 

CMP 

#$36 

C3F0 

D9 02 C6 

CMP 

YBND.Y 

C49B 

10 06 

BPL 

CKGLLT 

C3F3 

BO 06 

BCS 

DECY 

C49D 

20 DBC4 

JSR 

CKSC 

C3F5 

20 0EC5 

JSR 

NEGV 

C4A0 

4CB3C4 

JMP 

ENDSCL 

C3F8 

4C 1CC4 

JMP 

MYST 

• 




C3FB 

DE 01 DO DECY 

DEC 

$D001,X 

; check left aoal 



C3FE 

DE 07 DO 

DEC 

$D007,X 

• 




0401 

20 EAC4 

JSR 

STRNG 

C4A3 

C9 38 CKGLLT 

CMP 

#$38 

C404 

4C IF C4 

JMP 

MYEND 

C4A5 

30 3F 

BMI 

ENDSEC 

C407 

BD 01 DOMYDN 

LDA 

$D001,X 

C4A7 

A9 9C 

LDA 

#$9C 

C40A 

C8 

INY 


C4A9 

20 D2FF 

JSR 

$FFD2 

C40B 

D9 02 C6 

CMP 

YBND.Y 

C4AC 

A9 01 

LDA 

#1 

C40E 

90 06 

BCC 

INCY 

C4AE 

8D IF C7 

STA 

SCORE 

C410 

20 OE 05 

JSR 

NEGV 

C4B1 

AO OA 

LDY 

#$0A 

C413 

4C89C4 

JMP 

MXNST 

C4B3 

60 ENDSCL 

RTS 

C416 

FE 01 DO INCY 

INC 

$D001,X 

• 




C419 

FE 07 DO 

INC 

$D007,X 

; check right goal 



C41C 

20 EA C4 MYST 

JSR 

STRNG 

• 




C41F 

60 MYEND 

RTS 


C4B4 

EO 05 CKSCRT 

CPX 

#5 





C4B6 

DO 30 

BNE 

ENDCLC 

; move 

sprite horizontally 



C4B8 

AD 17 C7 

LDA 

SPCTRL 





C4BB 

D0 2B 

BNE 

ENDCLC 

C420 

BD 00 C7MVSPX 

LDA 

VSP.X 

C4BD 

BD FF CF 

LDA 

$CFFF,X 

C423 

FO 60 

BEQ 

MXST 

C4C0 

C9 24 

CMP 

#$24 

C425 

10 31 

BPL 

MXRT 

C4C2 

30 06 

BMI 

CKGLRT 

C427 

BD FF CF 

LDA 

$CFFF,X 

C4C4 

20 DBC4 

JSR 

CKSC 

C42A 

D9 06 C6 

CMP 

XBND.Y 

C4C7 

4CDAC4 

JMP 

ENDCSR 

C42D 

BO 13 

BCS 

DECX 

; 




C42F 

AD 10 DO 

LDA 

$D010 

; check right goal 



C432 

2D 12 C7 

AND 

MSGBT 

; 




C435 

DO OB 

BNE 

DECX 

C4CA 

C9 20 CKGLRT 

CMP 

#32 

C437 

20 B4C4 

JSR 

CKSCRT 

C4CC 

10 18 

BPL 

ENDSEC 

C43A 

BO 06 

BCS 

DECX 

C4CE 

A9 9E 

LDA 

#$9E 

C43C 

20 OE C5 

JSR 

NEGV 

C4D0 

20 D2 FF 

JSR 

$FFD2 

C43F 

4C85 C4 

JMP 

MXST 

C4D3 

A9 02 

LDA 

#2 

C442 

DE FF CF DECX 

DEC 

$CFFF,X 

C4D5 

8D IF C7 

STA 

SCORE 

C445 

DE 05 DO 

DEC 

$D005,X 

C4D8 

AO 23 

LDY 

#$23 

C448 

10 3F 

BPL 

MXNST 

C4DA 

60 ENDCSR 

RTS 


C44A 

AD 12 C7 

LDA 

MSGBT 

; 




C44D 

49 FF 

EOR 

#$FF 

; check score 



C44F 

2D 10 DO 

AND 

$0010 





C452 

8D 10 DO 

STA 

$0010 

C4DB 

AD 05 DOCKSC 

LDA 

$0005 

C455 

4C89 C4 

JMP 

MXNST 

C4DE 

C9 7B 

CMP 

#$7B 

C458 

BD FF CF MXRT 

LDA 

$CFFF,X 

C4E0 

30 06 

BMI 

ENDCLC 

C45B 

C8 

INY 


C4E2 

C9A6 

CMP 

#$A6 

C45C 

D9 06 C6 

CMP 

XBND.Y 

C4E4 

10 02 

BPL 

ENDCLC 










Chapter 3 


i 


C4E6 

38 ENDSEC 

SEC 


C574 

AO 02 

LDY 

#2 

i' [ 

C4E7 

60 

RTS 


C576 

20 FO FF 

JSR 

$FFFO 


C4E8 

18 ENDCLC 

CLC 


C579 

A9 BO 

LDA 

#$B0 


C4E9 

60 

RTS 


C57B 

20 D2 FF 

JSR 

$FFD2 






C57E 

A2 21 

LDX 

#$21 

M 

: update velocity 



C580 

20 C7 C5 

JSR 

HLINE 






C583 

A9 AE 

LDA 

#$AE 


C4EA 

BD 00 C7STRNG 

LDA 

VSP,X 

C585 

20 D2 FF 

JSR 

$FFD2 

n 

C4ED 

30 0D 

BM? 

NEGVSP 

C588 

A2 16 

LDX 

#$16 

C4EF 

C9 52 

CMP 

#$52 

C58A 

20 FO FF 

JSR 

$FFFO 


C4F1 

30 05 

BMI 

STRABS 

C58D 

A9 AD 

LDA 

#$AD 


C4F3 

A9 52 

LDA 

#$52 

C58F 

20 D2 FF 

JSR 

$FFD2 


C4F5 

9D00 C7 

STA 

VSP.X 

C592 

A2 21 

LDX 

#$21 


C4F8 

9D 06 C7 STFABS 

STA 

ABSVSP.X 

C594 

20 C7 C5 

JSR 

HLINE 


C4FB 

60 

RTS 


C597 

A9BD 

LDA 

#$BD 


C4FC 

C9 AE NEGVSP 

CMP 

#$AE 

C599 

20 D2 FF 

JSR 

$FFD2 


C4FE 

10 05 

BPL 

STNABS 

C59C 

A2 04 

LDX 

#4 


C500 

A9AE 

LDA 

#$AE 

C59E 

20 FO FF 

JSR 

$FFFO 


C502 

9D00 C7 

STA 

VSP.X 

C5A1 

A9 05 

LDA 

#5 


C505 

49 FF STNABS 

EOR 

#$FF 

C5A3 

20 D0C5 

JSR 

VLINE 


C507 

9D06C7 

STA 

ABSVSP.X 

C5A6 

A2 10 

LDX 

#$10 


C50A 

FE06C7 

INC 

ABSVSP.X 

C5A8 

20 FO FF 

JSR 

$FFFO 


C50D 

60 

RTS 


C5AB 

A9 05 

LDA 

#5 






C5AD 

20 D0C5 

JSR 

VLINE 


; reverse velocity 



C5B0 

A2 04 

LDX 

#4 






C5B2 

AO 25 

LDY 

#$25 


C50E 

BD 00 C7NEGV 

LDA 

VSP,X 

C5B4 

20 FO FF 

JSR 

$FFFO 


C511 

49 FF 

EOR 

#$FF 

C5B7 

A9 05 

LDA 

#5 


C513 

9D00 C7 

STA 

VSP,X 

C5B9 

20 D0C5 

JSR 

VLINE 


C516 

FE00C7 

INC 

VSP.X 

C5BC 

A2 10 

LDX 

#$10 


C519 

60 

RTS 


C5BE 

20 FO FF 

JSR 

$FFFO 






C5C1 

A9 05 

LDA 

#5 


: initialize screen 



C5C3 

20 DO C5 

JSR 

VLINE 






C5C6 

60 

RTS 



C51A 

A9 81 INTSCN 

LDA 

#$81 

J 





C51C 

20 D2 FF 

JSR 

$FFD2 

; draw horizontal line 




C51F 

A2 00 

LDX 

#0 






C521 

AO 02 

LDY 

#2 

C5C7 

A9 CO HLINE 

LDA 

#$C0 


C523 

18 

CLC 


C5C9 

20 D2 FF 

JSR 

$FFD2 


C524 

20 FO FF 

JSR 

$FFFO 

C5CC 

CA 

DEX 



C527 

A9 BO 

LDA 

#$B0 

C5CD 

10 F8 

BPL 

HLINE 


C529 

20 D2 FF 

JSR 

$FFD2 

C5CF 

60 

RTS 



C52C 

A2 21 

LDX 

#$21 






C52E 

20 C7C5 

JSR 

HLINE 

; draw vertical line 




C531 

A9 AE 

LDA 

#$AE 






C533 

20 D2FF 

JSR 

$FFD2 

C5D0 

8D 22 C7 VLINE 

STA 

$C722 


C536 

A2 02 

LDX 

#2 

C5D3 

A9 DD VCHAR 

LDA 

#$DD 


C538 

20 FO FF 

JSR 

$FFFO 

C5D5 

20 D2 FF 

JSR 

$FFD2 


C53B 

A9ED 

LDA 

#$ED 

C5D8 

E8 

INX 



C53D 

20 D2 FF 

JSR 

$FFD2 

C5D9 

18 

CLC 



C540 

A2 21 

LDX 

#$21 

C5DA 

20 FO FF 

JSR 

$FFFO 


C542 

20C7C5 

JSR 

HLiNE 

C5DD 

CE22C7 

DEC 

$C722 


C545 

A9BD 

LDA 

#$BD 

C5E0 

10 FI 

BPL 

VCHAR 


C547 

20 D2 FF 

JSR 

$FFD2 

C5E2 

60 

RTS 



C54A 

A2 01 

LDX 

#1 






C54C 

C8 

INY 


; print string 



i i 

C54D 

20 FO FF 

JSR 

$FFFO 

J 




i i 

C550 

A2 0A 

LDX 

#$0A 

C5E3 

BC OA C6 TITLE 

LDY 

STRINGS,X 


C552 

20 E3 C5 

JSR 

TITLE 

C5E6 

CA 

PE* 


\—i 

C555 

A2 01 

LDX 

#1 

C5E7 

BD0AC6 

LDA 

STRINGS,X 

1 I 

C557 

AO OF 

LDY 

#$0F 

C5EA 

20 D2 FF 

JSR 

$FFD2 


C559 

20 FO FF 

JSR 

$FFFO 

C5ED 

CA 

DEX 



C55C 

A2 21 

LDX 

#$21 

C5EE 

BD OA C6 TITLP 

LDA 

STRINGS,X 

n 

C55E 

20 E3 C5 

JSR 

TITLE 

C5F1 

20 D2 FF 

JSR 

$FFD2 

I ! 

C561 

A2 01 

LDX 

#1 

C5F4 

CA 

DEX 



C563 

AO 1C 

LDY 

#$1C 

C5F5 

88 

DEY 


<- 1 

C565 

20 FO FF 

JSR 

$FFFO 

C5F6 

DO F6 

BNE 

TITLP 

f 1 

C568 

A2 15 

LDX 

#$15 

C5F8 

60 

RTS 



C56A 

20 E3 C5 

JSR 

TITLE 

; data 





C56D 

A9 99 

LDA 

#$99 

• 




H 

C56F 

20 D2 FF 

JSR 

$FFD2 

C5F9 

00 01 FF JOYO 

.BYT 

0.1.-1 


C572 

A2 03 

LDX 

#3 

C5FC 

FF FF FE J0Y13 

.BYT 

-1,-1,-2 



186 
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C5FF 

01 02 01 J0Y24 

.BYT 

1,2,1 

C602 

4F D2 48 YBND 

.BYT 

79,210,72,217 

C6G6 

2C 2D 25 XBND 

.BYT 

44,45,37,52 

C6QA 

30 20 3A STRINGS 

.ASC 

"0 :ELPRUP" 

C613 

9C09 

.BYT 

156,9 

C615 

30 20 3A 

.ASC 

"0 :WOLLEY" 

C61E 

9E09 

.BYT 

158,9 

C620 

4E 55 52 

.ASC 

"NUR-N-PMUB" 

C62A 

9F 0A 

.BYT 

159,10 

C62C 

52 45 56 

.ASC 

"REVO EMAG" 

C635 

9F 09 

.BYT 

159,9 

C637 

54 45 53 

.ASC 

"TESER OT ERIF SS 
ERP" 

C64A 

9A 13 

.BYT 

154,19 

C64C 

18 00 00 SP12 

.BYT 

24,0,0,24 

C650 

00 00 18 

.BYT 

0,0,24,0,0,24,0,0 

C658 

3C 00 00 

.BYT 

60,0,0,102,0,0,195,0 

C660 

01 81 80 

.BYT 

1,129,128,63,0,252, 

63,0 

C668 

FC 01 81 

.BYT 

252,1,129,128,0,195 

,0,0 

C670 

66 00 00 

.BYT 

102,0,0,60,0,0,24,0 

C678 

00 18 00 

.BYT 

0,24,0,0,24,0,0,24 

C680 

AO 30 AO NOS 

.BYT 

160,48,160,49 

C684 

AO 32 AO 

.BYT 

160,50,160,51 

C688 

AO 34 AO 

.BYT 

160,52,160,53 

C68C 

AO 36 AO 

.BYT 

160,54,160,55 

C690 

AO 38 AO 

.BYT 

160,56,160,57 

C694 

31 30 31 

.BYT 

49,48,49,49 

C698 

31 32 31 

.BYT 

49,50,49,51 

C69C 

31 34 31 

.BYT 

49,52,49,53 





Ringside Karate 

Source code by Anthony Bertram 


3000 


*= 

$3000 

3148 

FC 00 01 

.BYTE 

252,0,1,85,0,3,255,0 

; white sorites 



3150 

03 FA 00 

.BYTE 

3,250,0,3,251,0,3,1 

3000 

00 OF CO 

.BYTE 

0,15,192,0,21,80,0, 




86 




63 

3158 

00 03 AA 

.BYTE 

0,3,170,0,2,170,0,2 

3008 

F0 00 3F 

.BYTE 

240,0,63,160,0,63,1 

3160 

AO 00 03 

.BYTE 

160,0,3,160,0,5,231, 




76,0 




0 

3010 

3B A8 00 

.BYTE 

59,168,0,58,160,0,4 

3168 

15 75 00 

.BYTE 

21,117,0,29,85,0,29, 




2,160 




85 

3018 

00 2A00 

.BYTE 

0,42,0,0,58,0,0,94 

3170 

00 17 55 

.BYTE 

0,23,85,0,21,169,0, 

3020 

70 01 57 

.BYTE 

112,1,87,92,1,117,8 




53 




7,1 

3178 

A9 00 0F 

.BYTE 

169,0,15,87,0,1,87,0 

3028 

5D 55 03 

.BYTE 

93,85,3,87,90,0,213, 

3180 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




170 

3188 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3030 

00 36 A8 

.BYTE 

0,54,168,0,29,112,0, 

3190 

00 00 00 

.BYTE 

0,0,0,0,0,128,0,0 




21 

3198 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3038 

70 00 15 

.BYTE 

112,0,21,112,0,63,2 

31 AO 

00 00 00 

.BYTE 

0,0,0,0,255,194,128, 




40,15 




85 

3040 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

31A8 

6A 80 55 

.BYTE 

106,128,85,106,128, 

3048 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




95,192,0 

3050 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

31 BO 

70 00 00 

.BYTE 

112,0,0,192,0,0,0,0 

3058 

00 00 00 

.BYTE 

0,0,0,0,0,0,2,0 

31B8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3060 

00 02 80 

.BYTE 

0,2,128,0,10,192,0,1 

31 CO 

00 01 57 

.BYTE 

0,1,87,0,3,255,0,1 




07 

31C8 

57 00 01 

.BYTE 

87,0,1,87,0,1,87,0 

3068 

00 00 6C 

.BYTE 

0,0,108,0,0,112,0,0 

31 DO 

01 55 00 

.BYTE 

1,85,0,1,85,0,1,85 

3070 

CO 00 00 

.BYTE 

192,0,0,0,0,0,0,0 

31D8 

00 01 5D 

.BYTE 

0,1,93,0,1,92,0,1 

3078 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,11 

31EO 

5C 00 05 

.BYTE 

92,0,5,92,0,21,112,0 

3080 

00 15 70 

.BYTE 

0,21,112,0,85,92,0, 

31E8 

55 CO 01 

.BYTE 

85,192,1,87,0,5,92,0 




85 

31FO 

15 70 OF 

.BYTE 

21,112,15,10,112,25 

3088 

5C 01 55 

.BYTE 

92,1,85,87,1,85,87,1 




5,2,175 

3090 

55 57 05 

.BYTE 

85,87,5,95,85,5,112, 

31F8 

FF OF FO 

.BYTE 

255,15,240,0,0,0,0,0 




21 

3200 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3098 

05 70 15 

.BYTE 

5,112,21,21,192,5,2 

3208 

00 00 00 

.BYTE 

0,0,0,0,192,0,0,112 




1,192 

3210 

00 00 5C 

.BYTE 

0,0,92,0,0,87,0,0 

30A0 

05 15 CO 

.BYTE 

5,21,192,5,23,0,1,23 

3218 

55 CO 00 

.BYTE 

85,192,0,21,192,0,5 

30A8 

00 01 17 

.BYTE 

0,1,23,0,1,23,15,1 




3,192 

30BO 

17 3F Cl 

.BYTE 

23,63,193,43,255,25 

3220 

00 35 CO 

.BYTE 

0,53,192,0,5,192,0,5 




4,63,192 

3228 

CO 00 05 

.BYTE 

192,0,5,192,0,5,192, 

30B8 

3F 00 00 

.BYTE 

63,0,0,0,0,0,0,15 




0 

30C0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3230 

C5C0 00 

.BYTE 

197,192,0,197,192,0 

30C8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




,250,176 

30D0 

00 00 CO 

.BYTE 

0,0,192,0,0,192,0,0 

3238 

00 FF FO 

.BYTE 

0,255,240,0,0,0,0,0 

30D8 

CO 00 00 

.BYTE 

192,0,0,112,0,0,112, 

3240 

00 3F 00 

.BYTE 

0,63,0,0,85,64,0,255 




0 

3248 

CO 00 FE 

.BYTE 

192,0,254,128,0,254 

3QE0 

00 70 00 

.BYTE 

0,112,0,0,112,0,0,1 




,192,0 




12 

3250 

EE AO 00 

.BYTE 

238,160,0,234,128,0 

30E8 

00 00 70 

.BYTE 

0,0,112,0,0,112,0,0 




,170,128 

30F0 

70 00 00 

.BYTE 

112,0,0,172,0,0,252, 

3258 

00 A8 00 

.BYTE 

0,168,0,0,168,0,0,2 

34 

30F8 

00 00 00 

.BYTE 

Q 

0,0,0,0,0,0,0,15 

3260 

D5 00 7A 

.BYTE 

213,0,122,213,1,95, 

3100 

00 15 70 

.BYTE 

0,21,112,0,85,92,0, 




85,1 




85 

3268 

55 50 05 

.BYTE 

85,80,5,85,80,5,85, 

3108 

5F 01 55 

.BYTE 

95,1,85,87,1,85,87,1 




80 

3110 

55 57 01 

.BYTE 

85,87,1,95,85,1,112, 

3270 

15 D5 54 

.BYTE 

21,213,84,23,197,87 




21 




,21,165 

3118 

01 70 15 

.BYTE 

1,112,21,1,112,5,1,1 

3278 

5D 05 A1 

.BYTE 

93,5,161,117,0,0,21 




12 




3,0 

3120 

05 01 70 

.BYTE 

5,1,112,5,1,92,1,1 

3280 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3128 

5C01 00 

.BYTE 

92,1,0,87,1,0,91,193 

3288 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3130 

00 6F FI 

.BYTE 

0,111,241,0,191,254 

3290 

AO 00 00 

.BYTE 

160,0,0,160,0,2,176, 




,3,240 




0 

3138 

OF 00 00 

.BYTE 

15,0,0,0,0,0,0,15 

3298 

6A CO 00 

.BYTE 

106,192,0,107,0,0,1 

3140 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




08,0 


188 



The Source Code 


32A0 

00 70 00 

.BYTE 

0,112,0,0,192,0,24,0 

3460 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32A8 

01 58 00 

.BYTE 

1,88,0,21,88,0,85,92 

3468 

03 FO 00 

.BYTE 

3,240,0,5,84,0,15,2 

32B0 

05 55 5C 

.BYTE 

5,85,92,21,85,240,8 




52 




5,92 

3470 

00 OF E8 

.BYTE 

0,15,232,0,15,236,0, 

32B8 

00 55 70 

.BYTE 

0,85,112,0,85,192,0, 




14 




0 

3478 

EA 00 OE 

.BYTE 

234,0,14,168,0,10,1 

32C0 

00 03 55 

.BYTE 

0,3,85,0,0,85,0,0 




68,2 

32C8 

55 00 00 

.BYTE 

85,0,0,85,0,1,85,0 

3480 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32D0 

01 57 00 

.BYTE 

1,87,0,1,92,0,1,80 

3488 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32D8 

00 05 70 

.BYTE 

0,5,112,0,5,112,0,5 

3490 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32E0 

70 00 15 

.BYTE 

112,0,21,192,0,21,1 

3498 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




92,0 

34A0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32E8 

15 CO 00 

.BYTE 

21,192,0,21,192,0,2 

34A8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




3,0 

34B0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

32F0 

00 57 00 

.BYTE 

0,87,0,0,87,0,0,171 

34B8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,2 

32F8 

OF 00 FF 

.BYTE 

15,0,255,255,0,0,0,0 

34C0 

00 0A80 

.BYTE 

0,10,128,0,14,128,0, 

3300 

57 00 00 

.BYTE 

87,0,0,124,0,0,112,0 




7 

3308 

00 CO 00 

.BYTE 

0,192,0,0,0,0,0,0 

34C8 

97 00 05 

.BYTE 

151,0,5,213,0,21,85, 

3310 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




0 

3318 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

34D0 

55 55 00 

.BYTE 

85,85,0,85,92,1,93, 

3320 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




92 

3328 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

34D8 

03 C5 5C 

.BYTE 

3,197,92,13,117,92, 

3330 

00 00 00 

.BYTE 

0,0,0,15,252,0,255,2 




13,95 




55 

34E0 

FF 35 55 

.BYTE 

255,53,85,85,53,213 

3338 

FF FC OF 

.BYTE 

255,252,15,255,0,0, 




,85,53 




0,0 

34E8 

F5 55 35 

.BYTE 

245,85,53,197,85,18 

3340 

00 FCOO 

.BYTE 

0,252,0,1,85,0,3,255 




1,192,0 

3348 

GO 03 FA 

.BYTE 

0,3,250,0,3,251,0,3 

34F0 

B5C0FF 

.BYTE 

181,192,255,186,20 

3350 

BA 80 03 

.BYTE 

186,128,3,170,0,2,1 




7,255,255,255 




70,0 

34F8 

FF 00 00 

.BYTE 

255,0,0,0,0,0,0,2 

3358 

02 AO 00 

.BYTE 

2,160,0,3,160,0,1,2 

3500 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




24 

3508 

00 CO 00 

.BYTE 

0,192,0,0,112,0,0,95 

3360 

00 05 75 

.BYTE 

0,5,117,85,5,85,85,5 

3510 

00 00 55 

.BYTE 

0,0,85,168,0,21,168, 

3368 

05 FF 05 

.BYTE 

213,255,5,117,192,1 




0 




,95,192 

3518 

OF 00 00 

.BYTE 

15,0,0,53,192,0,213, 

3370 

03 55 6A 

.BYTE 

3,85,106,0,213,106, 




112 




0,85 

3520 

00 55 50 

.BYTE 

0,85,80,0,85,92,0,80 

3378 

CO 00 55 

.BYTE 

192,0,85,192,0,255, 

3528 

57 00 40 

.BYTE 

87,0,64,21,192,0,21, 




192,0 




160 

3380 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3530 

FF 05 A8 

.BYTE 

255,5,168,255,1,252 

3388 

00 00 00 

.BYTE 

0,0,0,0,176,0,0,172 




,255,255 

3390 

00 00 BO 

.BYTE 

0,0,176,0,0,176,0,0 

3538 

FCOO 00 

.BYTE 

252,0,0,0,0,0,0,2 

3398 

BO 00 00 

.BYTE 

176,0,0,176,0,0,176, 

3540 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




0 

3548 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33A0 

00 BO 00 

.BYTE 

0,176,0,0,176,0,0,0 

3550 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33A8 

00 00 00 

.BYTE 

0,0,0,0,0,240,0,0 

3558 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33B0 

AO 00 00 

.BYTE 

160,0,0,128,0,0,32,0 

3560 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33B8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,11 

3568 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33C0 

00 15 7F 

.BYTE 

0,21,127,0,85,85,0, 

3570 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




85 

3578 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33C8 

55 00 55 

.BYTE 

85,0,85,85,1,85,85,1 

3580 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3300 

55 FF 01 

.BYTE 

85,255,1,95,0,1,92,0 

3588 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3308 

01 70 00 

.BYTE 

1,112,0,1,112,0,1,11 

3590 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




2 

3598 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33E0 

00 01 70 

.BYTE 

0,1,112,0,1,112,0,1 

35A0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33E8 

70 00 01 

.BYTE 

112,0,1,112,0,1,112, 

35A8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




0 

35B0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33F0 

01 70 OF 

.BYTE 

1,112,15,2,179,255, 

35B8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




3,255 

35C0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

33F8 

FO 00 00 

.BYTE 

240,0,0,0,0,0,0,15 

35C8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3400 

00 00 00 

.BYTE 

0,0,0,0,0,0,80,0 

35D0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3408 

00 50 00 

.BYTE 

0,80,0,0,80,0,0,80 

35D8 

00 00 00 

.BYTE 

0,0,0,0,128,0,30,160 

3410 

00 00 50 

.BYTE 

0,0,80,0,0,80,0,0 

35E0 

00 DE A1 

.BYTE 

0,222,161,85,222,17 

3418 

50 00 00 

.BYTE 

80,0,0,160,0,0,32,0 




1,85,223 

3420 

00 20 00 

.BYTE 

0,32,0,0,0,0,0,0 

35E8 

EAD5 DF 

.BYTE 

234,213,223,171,95, 

3428 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




223,237,85 

3430 

00 00 00 

.BYTE 

0,0,0,192,0,0,240,0 

35F0 

FF FF 55 

.BYTE 

255,255,85,0,3,213, 

3438 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 




0,0 

3440 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

35F8 

FF 00 00 

.BYTE 

255,0,0,0,0,0,0,0 

3448 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3600 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3450 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3608 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3458 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3610 

00 00 00 

.BYTE 

0,0,0,0,0,0,7,0 



Chapter 3 


3618 

00 15 CO 

.BYTE 

0,21,192,0,85,112,1, 

85 

3620 

70 D5 5D 

.BYTE 

112,213,93,112,213, 

113,112,215 

3628 

Cl 70 D5 

.BYTE 

193,112,213,127,11 

2,117,85,242 

3630 

5D 55 5E 

.BYTE 

93,85,94,87,245,90, 

214,173 

3638 5AF6AF 

; black player sprites 

.BYTE 

90,246,175,255,63,2 

40,0,0 

3640 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3648 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3650 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3658 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3660 

BO 00 02 

.BYTE 

176,0,2,176,0,0,172, 

3668 

00 2B00 

.BYTE 

Q 

0,43,0,0,11,0,0,3 

3670 

00 00 03 

.BYTE 

0,0,3,0,0,0,0,0 

3678 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,11 

3680 

03 FO 00 

.BYTE 

3,240,0,5,84,0,15,2 

52 

3688 

00 OA FC 

.BYTE 

0,10,252,0,14,252,0, 

42 

3690 

EC 00 OA 

.BYTE 

236,0,10,172,0,10,1 

68,0 

3698 

00 A8 00 

.BYTE 

0,168,0,0,164,0,7,1 

59 

36A0 

CO IF 7F 

.BYTE 

192,31,127,192,127, 

247,240,255 

36A8 

DFFO AF 

.BYTE 

223,240,175,127,24 

0,170,253,192 

36B0 

2A77 CO 

.BYTE 

42,119,192,3,223,19 

2,3,255 

36B8 

00 03 FF 

.BYTE 

0,3,255,0,1,87,0,15 

36C0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

36C8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

36D0 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

36D8 

00 00 00 

.BYTE 

0,0,0,0,0,2,0,0 

36E0 

02 00 00 

.BYTE 

2,0,0,2,0,0,2,0 

36E8 

00 02 00 

.BYTE 

0,2,0,0,2,0,0,2 

36F0 

00 00 02 

.BYTE 

0,0,2,0,0,5,0,0 

36F8 

OF 00 00 

.BYTE 

15,0,0,0,0,0,0,15 

3700 

02 ABOO 

.BYTE 

2,171,0,10,170,192, 

10,170 

3708 

C0 2AAA 

.BYTE 

192,42,170,176,42,1 

70,176,42 

3710 

AABOAA 

.BYTE 

170,176,170,250,17 

2,171,2,172 

3718 

AB02 AC 

.BYTE 

171,2,172,172,0,171 

,172,0 

3720 

ABAC 00 

.BYTE 

171,172,0,171,176,0 

,43,176 

3728 

00 2B BO 

.BYTE 

0,43,176,0,43,176,2 

40,43 

3730 

B3FC2B 

.BYTE 

179,252,43,127,255, 

23,252,3 

3738 

FF 00 00 

.BYTE 

255,0,0,0,0,0,0,15 

3740 

02 ABOO 

.BYTE 

2,171,0,10,170,192, 

10,170 

3748 

C0 2AAA 

.BYTE 

192,42,170,176,42,1 

70,176,42 

3750 

AABOAA 

.BYTE 

170,176,170,250,17 

6,171,2,176 

3758 

AB 02 BO 

.BYTE 

171,2,176,172,2,176 

,172,2 

3760 

BO AC 02 

.BYTE 

176,172,2,176,176,1 

0,176,176 

3768 

OA BO BO 

.BYTE 

10,176,176,42,192,1 

91,26,192 

3770 

BFC6C0 

.BYTE 

191,198,192,127,25 

3,192,240,15 


3778 

CO 00 00 

.BYTE 

192,0,0,0,0,0,0,15 

3780 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3788 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3790 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,2 

3798 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

37A0 

00 00 00 

.BYTE 

0,0,0,0,2,129,85,2 

37A8 

AB FF 02 

.BYTE 

171,255,2,171,255,0 

,1,95 

37B0 

00 00 07 

.BYTE 

0,0,7,0,0,1,0,0 

37B8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

37C0 

00 00 00 

.BYTE 

0,0,0,0,0,0,63,0 

37C8 

00 55 40 

.BYTE 

0,85,64,0,255,192,0, 

175 

37D0 

CO 00 EF 

.BYTE 

192,0,239,192,0,174 

,192,0 

37D8 

AA CO 00 

.BYTE 

170,192,0,170,128,0 

,10,128 

37E0 

00 OA 40 

.BYTE 

0,10,64,0,121,240,0, 

247 

37E8 

FC 00 FF 

.BYTE 

252,0,255,223,0,255 

,223,0 

37F0 

FF 7F 00 

.BYTE 

255,127,0,234,255,0 

,234,244 

37F8 

00 3F 50 

.BYTE 

0,63,80,0,63,240,0,0 

3800 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3808 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3810 

00 02 00 

.BYTE 

0,2,0,0,10,0,0,42 

3818 

00 00 AA 

.BYTE 

0,0,170,0,0,171,0,0 

3820 

AC 00 00 

.BYTE 

172,0,0,172,0,0,172, 

3828 

00 AC 00 

.BYTE 

g 

0,172,0,0,172,0,0,1 

72 

3830 

00 00 AC 

.BYTE 

0,0,172,0,0,172,0,1 

3838 

5F 00 03 

.BYTE 

95,0,3,255,0,0,0,0 

3840 

2ABOOO 

.BYTE 

42,176,0,21,112,0,4 

2,176 

3848 

00 2ABO 

.BYTE 

0,42,176,0,42,176,0, 

170 

3850 

BO 00 AA 

.BYTE 

176,0,170,176,0,170 

,176,0 

3858 

BA BO 00 

.BYTE 

186,176,0,202,176,0 

,10,176 

3860 

00 OAAC 

.BYTE 

0,10,172,0,2,171,0,0 

3868 

AA CO 00 

.BYTE 

170,192,0,42,176,0, 

10,172 

3870 

FO 02 A8 

.BYTE 

240,2,168,255,2,92, 

255,245 

3878 

7C00 OF 

.BYTE 

124,0,15,252,0,0,0,0 

3880 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3888 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3890 

OAOO 00 

.BYTE 

10,0,0,10,192,0,2,1 

76 

3898 

00 00 AD 

.BYTE 

0,0,173,0,0,43,0,0 

38A0 

OB 00 00 

.BYTE 

11,0,0,1,27,192,0,26 

38A8 

BC 00 1A 

.BYTE 

188,0,26,171,0,10,1 

70,240 

38B0 

OA AAAC 

.BYTE 

10,170,172,0,170,17 

1,0,10 

38B8 

AAOO 02 

.BYTE 

170,0,2,170,0,0,170, 

38C0 

03 FO 00 

.BYTE 

Q 

3,240,0,5,84,0,15,25 

2 

38C8 

00 OA FC 

.BYTE 

0,10,252,0,14,252,0, 

42 

38D0 

EC 00 OA 

.BYTE 

236,0,10,172,0,10,1 

68,0 

38D8 

00 A8 00 

.BYTE 

0,168,0,0,168,0,85,1 

69 

38E0 

00 FDA7 

.BYTE 

0,253,167,192,255,9 

5,192,95 

38E8 

FF FO OF 

.BYTE 

255,240,15,255,240, 

15,255,252 


190 
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38F0 

3F FF FC 

.BYTE 

63,255,252,127,255, 

3A78 

FO 

00 

00 

.BYTE 

240,0,0,0,0,0,0,15 




124,159,250 

3A80 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

38F8 

FC A7 FA 

.BYTE 

252,167,250,244,16 

3A88 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




9,252,80,0 

3A90 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3900 

00 00 2A 

.BYTE 

0,0,42,0,0,10,0,0 

3A98 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3908 

02 00 00 

.BYTE 

2,0,0,0,0,0,0,0 

3AA0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3910 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3AA8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3918 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3AB0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3920 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3AB8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,11 

3928 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3AC0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3930 

00 00 00 

.BYTE 

0,0,0,0,15,252,255,2 

3AC8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




55 

3AD0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3938 

FF FF CO 

.BYTE 

255,255,192,63,0,0, 

3AD8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




0,0 

3AE0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,15 

3940 

AA CO 00 

.BYTE 

170,192,0,170,192,0 

3AE8 

CO 

00 

15 

.BYTE 

192,0,21,80,0,63,24 




,170,192 






0,0 

3948 

00 AACO 

.BYTE 

0,170,192,0,170,176 

3AF0 

2B 

FO 

00 

.BYTE 

43,240,0,59,240,0,1 




,0,42 






71,176 

3950 

BO 00 OA 

.BYTE 

176,0,10,176,0,10,1 

3AF8 

00 

2A 

BO 

.BYTE 

0,42,176,0,42,160,0, 




76,0 






2 

3958 

02 AC 00 

.BYTE 

2,172,0,2,172,0,2,1 

3B00 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




72 

3B08 

00 

00 

00 

.BYTE 

0,0,0,1,0,0,7,0 

3960 

00 00 AB 

.BYTE 

0,0,171,0,0,171,0,0 

3B10 

28 

OF 

00 

.BYTE 

40,15,0,42,173,0,42, 

3968 

ABOO 00 

.BYTE 

171,0,0,171,0,0,43,0 






164 

3970 

00 2A00 

.BYTE 

0,42,0,0,42,0,255,2 

3B18 

00 

00 

FO 

.BYTE 

0,0,240,0,0,172,0,2 




13 

3B20 

AB 

00 

OA 

.BYTE 

171,0,10,170,0,10,1 

3978 

00 FF FF 

.BYTE 

0,255,255,0,0,0,0,0 






70,0 

3980 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3B28 

2A 

FA 

00 

.BYTE 

42,250,0,171,2,5,17 

3988 

00 00 00 

.BYTE 

0,0,0,0,0,0,11,0 






1,0 

3990 

00 2B00 

.BYTE 

0,43,0,0,11,0,0,11 

3B30 

15 

AC 

OF 

.BYTE 

21,172,15,63,176,25 

3998 

00 00 OB 

.BYTE 

0,0,11,0,0,11,0,0 






5,63,255 

39A0 

OB 00 00 

.BYTE 

11,0,0,11,0,0,11,0 

3B38 

FF 

00 

00 

.BYTE 

255,0,0,0,0,0,0,2 

39A8 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,15 

3B40 

02 

AO 

00 

.BYTE 

2,160,0,2,144,0,94,1 

39B0 

00 00 OA 

.BYTE 

0,0,10,0,0,2,0,0 






12 

39B8 

08 00 00 

.BYTE 

8,0,0,0,0,0,0,11 

3B48 

00 

FD 

F4 

.BYTE 

0,253,244,0,255,253 

39C0 

00 3F00 

.BYTE 

0,63,0,0,85,64,0,255 






,0,95 

39C8 

CO 00 AF 

.BYTE 

192,0,175,192,0,239 

3B50 

FF 

40 

OF 

.BYTE 

255,64,15,255,192,1 




,192,2 






5,247,28 

39D0 

AE CO 00 

.BYTE 

174,192,0,170,192,0 

3B58 

OF 

FI 

1C 

.BYTE 

15,241,28,15,254,17 




,170,128 






6,245,122 

39D8 

00 OA 80 

.BYTE 

0,10,128,0,10,64,85, 

3B60 

B4 

AA 

AA 

.BYTE 

180,170,170,172,17 




89 






0,171,172,170 

39E0 

FO FF F7 

.BYTE 

240,255,247,240,25 

3B68 

AF 

AC 

AA 

.BYTE 

175,172,170,163,17 




5,255,240,85 






2,0,3,174 

39E8 

FDFOOO 

.BYTE 

253,240,0,247,240,5 

3B70 

FF 

F3 

AE 

.BYTE 

255,243,174,255,25 




3,95,240 






5,94,255,255 

39F0 

AF FF 70 

.BYTE 

175,255,112,175,25 

3B78 

FF 

00 

00 

.BYTE 

255,0,0,0,0,0,0,2 




5,240,5,85 

3B80 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

39F8 

CO 03 FF 

.BYTE 

192,3,255,192,1,85, 

3B88 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




192,0 

3B90 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A00 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3B98 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A08 

OA 00 00 

.BYTE 

10,0,0,10,0,0,10,0 

3BA0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A10 

00 OA 00 

.BYTE 

0,10,0,0,10,0,0,10 

3BA8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A18 

00 00 OA 

.BYTE 

0,0,10,0,0,5,0,0 

3BB0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A20 

04 00 00 

.BYTE 

4,0,0,4,0,0,0,0 

3BB8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,11 

3A28 

00 00 00 

.BYTE 

0,0,0.0,0,0,0,0 

3BC0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A30 

00 00 00 

.BYTE 

0,0,0,0,0,3,0,0 

3BC8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A38 

OF 00 00 

.BYTE 

15,0,0,0,0,0,0,0 

3BD0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A40 

FE ABOO 

.BYTE 

254,171,0,170,170,1 

3BD8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




92,170,170 

3BE0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A48 

CO AAAA 

.BYTE 

192,170,170,192,17 

3BE8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




0,170,176,192 

3BF0 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A50 

AA BO CO 

.BYTE 

170,176,192,10,176, 

3BF8 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




192,10,176 

3C00 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 

3A58 

CO 02 BO 

.BYTE 

192,2,176,192,2,176 

3C08 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,0,0 




,0,2 

3C10 

00 

00 

00 

.BYTE 

0,0,0,0,0,0,44,0 

3A60 

BO 00 02 

.BYTE 

176,0,2,176,0,2,176, 

3C18 

00 

AB 

00 

.BYTE 

0,171,0,2,170,192,2, 




0 






170 

3A68 

02 BO 00 

.BYTE 

2,176,0,2,176,0,2,1 

3C20 

BF 

02 

BA 

.BYTE 

191,2,186,169,2,142 




76 






,169,2 

3A70 

3F C2B0 

.BYTE 

63,194,176,255,253, 

3C28 

83 

E9 

02 

.BYTE 

131,233,2,254,169,7 




112,192,255 






9,170,165 
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3C30 

7A AA9A 

.BYTE 

122,170,154.90,175, 

3CD4 

8D FE 07 

STA 

2046 




234,90,186 

3CD7 

A9 DC 

LDA 

#220 

3C38 

A5FF FA 

.BYTE 

165,255,250,175,0,1 

3CD9 

8D FF 07 

STA 

2047 




5,252,0 

3CDC 

A9 B4 

LDA 

#180 

3C40 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3CDE 

8D 05 DO 

STA 

V+5 

3C48 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3CE1 

8D 07 DO 

STA 

V+7 

3C50 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3CE4 

8D ODDO 

STA 

V+13 

3C5S 

00 00 00 

.BYTE 

0,0,0,0,2,0,0,10 

3CE7 

8D OF DO 

STA 

V+15 

3C60 

B4FFCA 

.BYTE 

180,255,202,183,25 

3CEA 

A9 AO 

LDA 

#160 




5,106,183,253 

3CEC 

8D01 DO 

STA 

V+1 

3C68 

AB F7 5F 

.BYTE 

171,247,95,106,247, 

3CEF 

8D03 DO 

STA 

V+3 




255,219,247 

3CF2 

8D09 DO 

STA 

V+9 

3C70 

FF FF FF 

.BYTE 

255,255,255,255,19 

3CF5 

8D OB DO 

STA 

V+11 




2,0,255,0 

3CF8 

A9 51 

LDA 

#81 

3C78 

00 00 00 

.BYTE 

0,0,0,0,0,0,0,0 

3CFA 

8D00 DO 

STA 

V 

3C80 




3CFD 

8D04 DO 

STA 

V+4 

EA 

NOP 


3D00 

A9 69 

LDA 

#105 

3C81 

EA 

NOP 


3D02 

8D 02 DO 

STA 

V+2 

J 




3D05 

8D06 DO 

STA 

V+6 

;*=15490 



3D08 

A9 B4 

LDA 

#180 

; 




3D0A 

8D08 DO 

STA 

V+8 

3C82 

TESTBT1 

= 

$FB 

3D0D 

8D OC DO 

STA 

V+12 

3C82 

TESTBT2 

= 

$FC 

3D10 

A9 CC 

LDA 

#204 

3C82 

SC0R1 

= 

828 

3D12 

8D0A DO 

STA 

V+10 

3C82 

SC0R2 

= 

830 

3D15 

8D OE DO 

STA 

V+14 

3C82 

LINPRT 

= 

$BDCD 

j 




3C82 

V 

= 

53248 

;main loop 



3C82 

S 

= 

54272 

| 




3C82 

JY1 

= 

56321 

3D18 

AD 00 DCJ0Y2 

LDA 

JY2 

3C82 

JY2 

= 

56320 

3D1B 

29 10 

AND 

#16 

3C82 

PLOT 

= 

$FFFO 

3D1D 

DO 35 

BNE 

STIC2 

3C82 

CHROUT 

= 

$FFD2 

3D1F 

A5FC 

LDA 

TESTBT2 

3C82 




3D21 

DO 31 

BNE 

STIC2 

20 AO 40 BEGINING 

JSR 

SCREEN 

3D23 

AD 00 DC 

LDA 

JY2 

3C85 

20 93 40 

JSR 

SID 

3D26 

29 OF 

AND 

#15 

3088 

A9 00 

LDA 

#0 

3D28 

C9 0A 

CMP 

#10 

3C8A 

8D 3C 03 

STA 

828 

3D2A 

DO 08 

BNE 

L0KIK2 

3C8D 

8D 3D 03 

STA 

829 

3D2C 

A9 E2 

LDA 

#226 

3090 

8D 3E 03 

STA 

830 

3D2E 

20 CE 3E 

JSR 

GEN2 

3C93 

8D 3F 03 

STA 

831 

3D31 

4C BF 3D 

JMP 

J0Y1 





3D34 

C9 09 L0KIK2 

CMP 

#9 

;set up sprites 



3D36 

DO 08 

BNE 

PUNCH2 





3D38 

A9 EA 

LDA 

#234 

3C96 

A9 FF START 

LDA 

#255 

3D3A 

20 CE 3E 

JSR 

GEN2 

3C98 

8D 15 DO 

STA 

V+21 

3D3D 

4C BF 3D 

JMP 

J0Y1 

3C98 

8D1CD0 

STA 

V+28 

3D40 

C9 OB PUNCH2 

CMP 

#11 

3C9E 

A9 01 

LDA 

#1 

3D42 

DO 08 

BNE 

BL0CK2 

3CA0 

8D 25 DO 

STA 

V+37 

3D44 

A9 DE 

LDA 

#222 

3CA3 

A9 00 

LDA 

#0 

3D46 

20 CE 3E 

JSR 

GEN2 

3CA5 

8D26 DO 

STA 

V+38 

3D49 

4C BF 3D 

JMP 

J0Y1 

3CA8 

A2 00 

LDX 

#0 

3D4C 

A9 E6 BL0CK2 

LDA 

#230 

3CAA 

A9 OA SPRCOL 

LDA 

#10 

3D4E 

20 CE 3E 

JSR 

GEN2 

3CAC 

9D 27 DO 

STA 

V+39.X 

3D51 

4C BF 3D 

JMP 

J0Y1 

3CAF 

E8 

INX 


• 




3CB0 

EO 08 

CPX 

#8 

;move black 



3CB2 

DO F6 

BNE 

SPRCOL 

3D54 

AD 00 DC STIC2 

LDA 

JY2 

.'starting positions 



3D57 

29 10 

AND 

#16 

J 




3D59 

FO 04 

BED 

F0B3 

3CB4 

A9 CO DEFAULT 

LDA 

#192 

3D5B 

A9 00 

LDA 

#0 

3CB6 

8D F8 07 

STA 

2040 

3D5D 

85 FC 

STA 

TESTBT2 

3CB9 

A9C1 

LDA 

#193 

3D5F 

AD 00 DC F0B3 

LDA 

JY2 

3CBB 

8D F9 07 

STA 

2041 

3D62 

29 OF 

AND 

#15 

3CBE 

A9C2 

LDA 

#194 

3D64 

C9 OF 

CMP 

#15 

3CC0 

8D FA 07 

STA 

2042 

3D66 

DO 03 

BNE 

F0B4 

3CC3 

A9C3 

LDA 

#195 

3D68 

4C BF 3D 

JMP 

J0Y1 

3CC5 

8D FB 07 

STA 

2043 

3D6B 

38 F0B4 

SEC 


3CC8 

A9 D9 

LDA 

#217 

3D6C 

C9 08 

CMP 

#8 

3CCA 

8D FC 07 

STA 

2044 

3D6E 

90 30 

BCC 

BACKW2 

3CCD 

A9 DA 

LDA 

#218 

3D70 

ADOE DO 

LDA 

V+14 

3CCF 

8D FD 07 

STA 

2045 

3D73 

18 

CLC 


3CD2 

A9 DB 

LDA 

#219 

3D74 

C9 28 

CMP 

#40 


192 
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u 



3D76 

BO 03 

BCS 

F0RWD2 

3E17 

AD 00 DO 

LDA 

V 

I ; 

3D78 

4C BF 3D 

JMP 

J0Y1 

3E1A 

18 

CLC 


W 

3D7B 

AD 08 DO FORWD2 

LDA 

V+8 

3E1B 

C9 2D 

CMP 

#45 


3D7E 

38 

SEC 


3E1D 

BO 03 

BCS 

BACKWD 

u 

3D7F 

ED 00 DO 

SBC 

V 

3E1F 

4C 6C 3E 

JMP 

ENLP 

3D82 

C9 14 

CMP 

#20 

3E22 

A2 05 BACKWD 

LDX 

#5 


3D84 

BO 03 

BCS 

F0RL2 

3E24 

CE 00 DO BAL 

DEC 

V 


3D86 

4C BF 3D 

JMP 

J0Y1 

3E27 

CE 02 DO 

DEC 

V+2 

Ui 

3D89 

A2 05 F0RL2 

LDX 

#5 

3E2A 

CE04 DO 

DEC 

V+4 

3D8B 

CE 08 DO FA12 

DEC 

V+8 

3E2D 

CE06 DO 

DEC 

V+6 


3D8E 

CE OA DO 

DEC 

V+10 

3E30 

CA 

DEX 



3D91 

CE OC DO 

DEC 

V+12 

3E31 

DO FI 

BNE 

BAL 


3D94 

CE OE DO 

DEC 

V+14 

3E33 

EE FA 07 

INC 

2042 


3D97 

CA 

DEX 


3E36 

EE FA 07 

INC 

2042 


3D98 

DO FI 

BNE 

FAL2 

3E39 

4C 6C 3E 

JMP 

ENLP 


3D9A 

EE FF 07 

INC 

2047 

3E3C 

AD 08 DO FORW 

LDA 

V+8 


3D9D 

4C BF 3D 

JMP 

J0Y1 

3E3F 

38 

SEC 



3DA0 

AD OE DO BACKW2 

LDA 

V+14 

3E40 

ED 00 DO 

SBC 

V 


3DA3 

38 

SEC 


3E43 

C9 14 

CMP 

#20 


3DA4 

C9EB 

CMP 

#235 

3E45 

BO 03 

BCS 

FORL 


3DA6 

90 03 

BCC 

BACKWD2 

3E47 

4C 6C 3E 

JMP 

ENLP 


30A8 

4C BF 3D 

JMP 

J0Y1 

3E4A 

AD 00 DO FORL 

LDA 

V 


3DAB 

A2 05 BACKWD2 

LDX 

#5 

3E4D 

38 

SEC 



3DAD 

EE 08 DO BAL2 

INC 

V+8 

3E4E 

C9 DC 

CMP 

#220 


3DB0 

EE OA DO 

INC 

V+10 

3E50 

90 03 

BCC 

FORWD 


3DB3 

EEOC DO 

INC 

V+12 

3E52 

4C6C3E 

JMP 

ENLP 


3DB6 

EE OEDO 

INC 

V+14 

3E55 

A2 05 FORWD 

LDX 

#5 


3DB9 

CA 

DEX 


3E57 

EE 00 DO FAL 

INC 

V 


30BA 

DO FI 

BNE 

BAL2 

3E5A 

EE 02 DO 

INC 

V+2 


3DBC 

EE FF 07 

INC 

2047 

3E5D 

EE 04 DO 

INC 

V+4 


3DBF 




3E60 

EE 06 DO 

INC 

V+6 


AD 01 DCJ0Y1 

LDA 

JY1 

3E63 

CA 

DEX 



3DC2 

29 10 

AND 

#16 

3E64 

DO FI 

BNE 

FAL 


3DC4 

DO 35 

BNE 

STICK 

3E66 

EE FA 07 

INC 

2042 


3DC6 

A5FB 

LDA 

TESTBT1 

3E69 

EE FA 07 

INC 

2042 


3DC8 

DO 31 

BNE 

STICK 

; 





3DCA 

AD 01 DC 

LDA 

JY1 

rcoflision checks 




3DCD 

29 OF 

AND 

#15 

; 





3DCF 

C9 06 

CMP 

#6 

3E6C 

A2 64 ENLP 

LDX 

#100 


3DD1 

DO 08 

BNE 

LOKIK 

3E6E 

20 BA 3F 

JSR 

TIME 


3DD3 

A9C9 

LDA 

#201 

3E71 

AD IE DO 

LDA 

V+30 


3DD5 

20 AE 3E 

JSR 

GEN1 

3E74 

AA 

TAX 



3DD8 

4C 6C 3E 

JMP 

ENLP 

3E75 

29 12 

AND 

#18 


3DDB 

C9 07 LOKIK 

CMP 

#7 

3E77 

C9 12 

CMP 

#18 


3DDD 

DO 08 

BNE 

PUNCH 

3E79 

FO 73 

BEQ 

COLL 


3DDF 

A9C5 

LDA 

#197 

3E7B 

8A EN 

TXA 



3DE1 

20 AE 3E 

JSR 

GEN1 

3E7C 

29 48 

AND 

#72 


3DE4 

4C 6C 3E 

JMP 

ENLP 

3E7E 

C9 48 

CMP 

#72 


3DE7 

C9 05 PUNCH 

CMP 

#5 

3E80 

FO 6C 

BEQ 

COLL 


3DE9 

DO 08 

BNE 

BLOCK 

3E82 

8A 

TXA 



3DEB 

A9D1 

LDA 

#209 

3E83 

29 18 

AND 

#24 


3DED 

20 AE 3E 

JSR 

GEN1 

3E85 

C9 18 

CMP 

#24 


3DF0 

4C6C3E 

JMP 

ENLP 

3E87 

FO 65 

BEQ 

COLL 


3DF3 

A9 CD BLOCK 

LDA 

#205 

3E89 

8A 

TXA 



3DF5 

20 AE 3E 

JSR 

GEN1 

3E8A 

29 42 

AND 

#66 


3DF8 

4C 6C 3E 

JMP 

ENLP 

3E8C 

C9 42 

CMP 

#66 

X 

; 




3E8E 

FO 5E 

BEQ 

COLL 


;move white 



3E90 

A5 FB ENO 

LDA 

TESTBT1 


; 




3E92 

A8 

TAY 



3DFB 

AD 01 DC STICK 

LDA 

JY1 

3E93 

A9C0 

LDA 

#192 

LJ 

3DFE 

29 10 

AND 

#16 

3E95 

20 AE 3E 

JSR 

GEN1 


3E00 

FO 04 

BEQ 

F0B1 

3E98 

98 

m 



3E02 

A9 00 

LDA 

#0 

3E99 

85 FB 

STA 

TESTBT1 

Li 

3E04 

85 FB 

STA 

TESTBT1 

3E9B 

A5 FC 

LDA 

TESTBT2 

3E06 

AD 01 DCF0B1 

LDA 

JY1 

3E9D 

A8 

TAY 



3E09 

29 OF 

AND 

#15 

3E9E 

A9D9 

LDA 

#217 


3E0B 

C9 OF 

CMP 

#15 

3EA0 

20 CE 3E 

JSR 

GEN2 

u 

3E0D 

DO 03 

BNE 

F0B2 

3EA3 

98 

m 



3E0F 

4C6C3E 

JMP 

ENLP 

3EA4 

85 FC 

STA 

TESTBT2 


3E12 

38 F0B2 

SEC 


3EA6 

A2 32 

LDX 

#50 

! 

3E13 

C9 08 

CMP 

#8 

3EA8 

20 BA3F 

JSR 

TIME 


3E15 

90 25 

BCC 

FORW 

3EAB 

4C 18 3D 

JMP 

J0Y2 
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n 


■ 




3F40 

A9 03 

LDA 

#3 

n 

animation subroutines 



3F42 

CD 3F 03 

CMP 

831 





3F45 

FO 03 

BEQ 

BLWNS 

3EAE 

A2 00 GEN1 

LDX 

#0 

3F47 

4C B4 3C JDF 

JMP 

DEFAULT 


3EB0 

9D F8 07 GN1 

STA 

2040.X 

3F4A 

A9 E8 BLWNS 

LDA 

#232 

n 

3EB3 

18 

CLC 


3F4C 

CD 3E03 

CMP 

830 

3EB4 

69 01 

ADC 

#1 

3F4F 

DO F6 

BNE 

JDF 


3EB6 

E8 

INX 


3F51 

4C E5 3F 

JMP 

BLACKWINS 

n 

3EB7 

E0 04 

CPX 

#4 

3F54 

AD FC 07 SC2 

LDA 

2044 

3EB9 

DO F5 

BNE 

GN1 

3F57 

C9D9 

CMP 

#217 

3EBB 

A9 01 

LDA 

#1 

3F59 

DOOD 

BNE 

SC3 


3EBD 

85 FB 

STA 

TESTBT1 

3F5B 

AD F8 07 

LDA 

2040 


3EBF 

AD F8 07 

LDA 

2040 

3F5E 

C9C0 

CMP 

#192 


3EC2 

C9C0 

CMP 

#192 

3F60 

DO 06 

BNE 

SC3 


3EC4 

FO 07 

BEQ 

NOSND 

3F62 

4C 90 3E 

JMP 

ENO 


3EC6 

C9D5 

CMP 

#213 

3F65 

4C 90 3E SC4 

JMP 

ENO 


3EC8 

FO 03 

BEQ 

NOSND 

3F68 

AD FC 07 SC3 

LDA 

2044 


3ECA 

20 6A40 

JSR 

SWISH 

3F6B 

C9D9 

CMP 

#217 


3ECD 

60 NOSND 

RTS 


3F6D 

DO F6 

BNE 

SC4 


3ECE 




3F6F 

AD F8 07 

LDA 

2040 


A2 00 GEN2 

LDX 

#0 

3F72 

C9C0 

CMP 

#192 


3ED0 

9D FC 07 GN2 

STA 

2044.X 

3F74 

FO EF 

BEQ 

SC4 


3ED3 

18 

CLC 

3F76 

20 44 40 

JSR 

WAGK 


3ED4 

69 01 

ADC 

#1 

3F79 

A2 0A 

LDX 

#10 


3ED6 

E8 

INX 


3F7B 

EE 08 DO BALC2 

INC 

V+8 


3ED7 

EO 04 

CPX 

#4 

3F7E 

EE OA DO 

INC 

V+10 


3ED9 

DO F5 

BNE 

GN2 

3F81 

EEOC DO 

INC 

V+12 


3EDB 

A9 01 

LDA 

#1 

3F84 

EE OE DO 

INC 

V+14 


3EDD 

85 FC 

STA 

TESTBT2 

3F87 

CA 

DEX 



3EDF 

AD FC 07 

LDA 

2044 

3F88 

DO FI 

BNE 

BALC2 


3EE2 

C9EE 

CMP 

#238 

3F8A 

A9EE 

LDA 

#238 


3EE4 

FO E7 

BEQ 

NOSND 

3F8C 

20 CE 3E 

JSR 

GEN2 


3EE6 

C9D9 

CMP 

#217 

3F8F 

A9C0 

LDA 

#192 


3EE8 

FO E3 

BEQ 

NOSND 

3F91 

20 AE 3E 

JSR 

GEN1 


3EEA 

20 6A40 

JSR 

SWISH 

3F94 

20 FC3F 

JSR 

WHITESCORE 


3EED 

60 

RTS 


3F97 

A2 FF 

LDX 

#255 


• 




3F99 

20 BA 3F 

JSR 

TIME 


;collision routine 



3F9C 

A2 FF 

LDX 

#255 


; 




3F9E 

20 BA 3F 

JSR 

TIME 


3EEE 

AD F8 07 COLL 

LDA 

2040 

3FA1 

A2FF 

LDX 

#255 


3EF1 

C9CD 

CMP 

#205 

3FW3 

20 BA3F 

JSR 

TIME 


3EF3 

FO 70 

BEQ 

SC4 

3FA6 

A9 03 

LDA 

#3 


3EF5 

AD FC 07 

LDA 

2044 

3FA8 

CD 3D 03 

CMP 

829 


3EF8 

C9E6 

CMP 

#230 

3FAB 

FO 03 

BEQ 

WHTWNS 


3EFA 

FO 69 

BEQ 

SC4 

3FAD 

4C B4 3C JDF2 

JMP 

DEFAULT 


3EFC 

ADF8 07 

LDA 

2040 

3FB0 

A9 E8 WHTWNS 

LDA 

#232 


3EFF 

C9C0 

CMP 

#192 

3FB2 

CD3C03 

CMP 

828 


3F01 

DO 51 

BNE 

SC2 

3FB5 

DO F6 

BNE 

JDF2 


3F03 

AD FC 07 

LDA 

2044 

3FB7 

4CC3 3F 

JMP 

WHITEWINS 


3F06 

C9D9 

CMP 

#217 

• 





3F08 

FO 4A 

BEQ 

SC2 

Time delay subroutine 




3F0A 

20 44 40 

JSR 

1CK 

; 





3F0D 

A2 0A 

LDX 

#10 

3FBA 

AO FF TIME 

LDY 

#255 


3F0F 

CE 00 DO BALC 

DEC 

V 

3FBC 

88 LPY 

DEY 



3F12 

CE 02 DO 

DEC 

V+2 

3FBD 

DO FD 

BNE 

LPY 


3F15 

CE04 DO 

DEC 

V+4 

3FBF 

CA 

DEX 



3F18 

CE 06 DO 

DEC 

V+6 

3FC0 

DO F8 

BNE 

TIME 

n 

3F1B 

CA 

DEX 


3FC2 

60 

RTS 


3F1C 

DO FI 

BNE 

BALC 

• 





3F1E 

EE FA 07 

INC 

2042 

;game end routines 



i—| 

3F21 

EE FA 07 

INC 

2042 

; 




f 1 

3F24 

A9D5 

LDA 

#213 

3FC3 

A2 05 WHITEWINS 

LDX 

#5 


3F26 

20 AE 3E 

JSR 

GEN1 

3FC5 

AO OB 

LDY 

#11 

n 

3F29 

A9D9 

LDA 

#217 

3FC7 

18 

CLC 


3F2B 

20 CE 3E 

JSR 

GEN2 

3FC8 

20 FO FF 

JSR 

PLOT 

3F2E 

20 10 40 

JSR 

BLACKSCORE 

3FCB 

AO 00 

LDY 

#0 


3F31 

A2FF 

LDX 

#255 

3FCD 

B9 9F 45 MSSG 

LDA 

TABLE2.Y 

n 

3F33 

20 BA 3F 

JSR 

TIME 

3FD0 

C9 00 

CMP 

#0 

3F36 

A2 FF 

LDX 

#255 

3FD2 

FO 06 

BEQ 

WWTS 


3F38 

20 BA3F 

JSR 

TIME 

3FD4 

20 D2 FF 

JSR 

CHROUT 

H 

3F3B 

A2 FF 

LDX 

#255 

3FD7 

C8 

INY 


3F3D 

20 BA 3F 

JSR 

TIME 

3FD8 

DO F3 

BNE 

MSSG 
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u 


The Source Code 



3FDA 

A9 00 WAITS 

LDA 

#0 

4074 

A9 44 

LDA 

#68 


3FDC 

85 C6 

STA 

198 

4076 

8D 05 D4 

STA 

S+5 


3FDE 

A5C6 WT 

LDA 

198 

4079 

A9 00 

LDA 

#0 


3FE0 

F0 FC 

BEQ 

WT 

407B 

8D06D4 

STA 

S+6 

u 

3FE2 

4C 82 3C 

JMP 

BEGINING 

407E 

A9 07 

LDA 

#7 

3FE5 

A2 05 6LACKWINS 

LDX 

#5 

4080 

8D 18 D4 

STA 

S+24 


3FE7 

AO OB 

LDY 

#11 

4083 

A9 81 

LDA 

#129 

1 

3FE9 

18 

CLC 


4085 

8D04 D4 

STA 

S+4 

LJ 

3FEA 

20 F0 FF 

JSR 

PLOT 

4088 

A2 0A 

LDX 

#10 


3FED 

A0 00 

LDY 

#0 

408A 

20 BA 3F 

JSR 

TIME 


3FEF 

B9 AC 45 BMSG 

LDA 

TABLE3.Y 

408D 

A9 80 

LDA 

#128 


3FF2 

C9 00 

CMP 

#0 

408F 

8D04 D4 

STA 

S+4 


3FF4 

F0 E4 

BEQ 

WAITS 

4092 

60 

RTS 



3FF6 

20 D2FF 

JSR 

CHROUT 

4093 

A2 00 SID 

LDX 

#0 


3FF9 

C8 

INY 


4095 

A9 00 

LDA 

#0 


3FEA 

DO F3 

BNE 

BMSG 

4097 

9D 00 D4 CLRSD 

STA 

S,X 


; 




409A 

E8 

INX 



scoring subroutines 



409B 

EO 18 

CPX 

#24 


J 




409D 

DO F8 

BNE 

CLRSD 


3FFC 

18 WHITESC0R 

CLC 


409F 

60 

RTS 



3FFD 

AD3C03 

LDA 

828 

! 





4000 

69 64 

ADC 

#100 

;print background 




4002 

8D3C03 

STA 

828 






4005 

AD 3D 03 

LDA 

829 

40A0 

A9 00 SCREEN 

LDA 

#0 


4008 

69 00 

ADC 

#0 

40A2 

8D 21 DO 

STA 

53281 


400A 

8D 3D 03 

STA 

829 

40A5 

A9 OF 

LDA 

#15 


400D 

4C21 40 

JMP 

SCORPLOT 

40A7 

80 20 DO 

STA 

53280 


4010 

18 BLACKSCQR 

CLC 


40AA 

AO 00 

LDY 

#0 


4011 

AD3E03 

LDA 

830 

40AC 

B9DC40T1 

LDA 

TABLE.Y 


4014 

69 64 

ADC 

#100 

40AF 

20 D2FF 

JSR 

CHROUT 


4016 

8D3E03 

STA 

830 

40B2 

C8 

INY 



4019 

AD3F03 

LDA 

831 

40B3 

DO F7 

BNE 

T1 


401C 

69 00 

ADC 

#0 

40B5 

B9 DC 41 T2 

LDA 

TABLE+256.Y 


401E 

8D 3F 03 

STA 

831 

40B8 

20 D2FF 

JSR 

CHROUT 


4021 

A2 08 SCORPLOT 

LDX 

#8 

40BB 

C8 

INY 



4023 

A0 22 

LDY 

#34 

40BC 

DO F7 

BNE 

T2 


4025 

18 

CLC 


40BE 

B9 DC 42 T3 

LDA 

TABLE+512.Y 


4026 

20 F0 FF 

JSR 

PLOT 

40C1 

20 D2 FF 

JSR 

CHROUT 


4029 

AD 3D 03 

LDA 

829 

40C4 

C8 

INY 



402C 

AE3C03 

LDX 

828 

40C5 

DO F7 

BNE 

T3 


402F 

20 CD BD 

JSR 

LINPRT 

40C7 

B9DC43T4 

LDA 

TABLE+768.Y 


4032 

A2 0D 

LDX 

#13 

40GA 

20 D2FF 

JSR 

CHROUT 


4034 

A0 22 

LDY 

#34 

40CD 

C8 

INY 



4036 

18 

CLC 


40CE 

DO F7 

BNE 

T4 


4037 

20 FO FF 

JSR 

PLOT 

40D0 

B9 DC 44 T5 

LDA 

TABLE+1024.Y 


403A 

AD3F 03 

LDA 

831 

40D3 

FO 06 

BEQ 

QUIT 


403D 

AE3E 03 

LDX 

830 

40D5 

20 D2 FF 

JSR 

CHROUT 


4040 

20 CD BD 

JSR 

LINPRT 

40D8 

C8 

INY 



4043 

60 

RTS 


40D9 

DO F5 

BNE 

T5 


; 




40DB 

60 QUIT 

RTS 



;sound 

subroutines 



40DC 

TABLE 

<= 

* 




40DC 

93 20 12 

.ASC 

"{CLR} {RVS}{WH 


4044 

A9 OF WACK 

LDA 

#15 




T}{22 SPACE}" 


4046 

8D 18 D4 

STA 

S+24 

40F6 

20 20 20 

.ASC 

"{16 SP)ACE}{OFF 


4049 

8D0CD4 

STA- 

S+12 




}" 


404C 

A9 07 

LDA 

#7 

4108 

12 20 92 

.ASC 

"{RVS} {OFF} { 

9 SRAcE}{RVS}f<c4 
^{11 SRACE}{OFF 

"{9 SRACE}{RVS} 

W {7 ^ P 

" {OFF} {9 SPACE} 
{FwS}f<4>3{11 SP 

UmJ 

404E 

8D0DD4 

STA 

S+13 





4051 

A9 1C 

LDA 

#28 





4053 

8D08 D4 

STA 

S+8 




, i 

4056 

A9 00 

LDA 

#0 

4123 

20 20 20 

.ASC 

lanJ 

4058 

8D 07 D4 

STA 

S+7 





405B 

A9 81 

LDA 

#129 





405D 

8D 0BD4 

STA 

S+11 

4139 

20 92 20 

.ASC 

u 

4060 

A2 0A 

LDX 

#10 





4062 

20 BA 3F 

JSR 

TIME 




ACE} {OFF} " 


4065 

A9 80 

LDA 

#128 

4153 

20 20 20 

.ASC 

"{9 SMCE}{RVS) 
{OFF} {OFF} {7 SP 
ACE}{RVS} " 

" {OFF} {9 SPACE} 
f^{RVS}{9 SPA 
CE|{uFF}£{2 SPA 

4 f 

4067 

8D 0BD4 

STA 

S+11 




LmJ 

406A 

A9 El SWISH 

LDA 

#225 





406C 

8D00D4 

STA 

S 

4169 

20 92 20 

ASC 

, 

406F 

A9 1E 

LDA 

#30 




UJ 

4071 

8D01 D4 

STA 

S+1 
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4183 20 20 20 

4198 20 92 20 
41B1 20 20 20 

41C5 20 92 20 
41E5 12 05 20 

41F4 20 92 20 
420E 20 20 20 

4222 20 92 20 
423D 20 20 20 

424D 20 20 92 
4267 20 D1 20 

4296 20 D1 20 

42AA 20 92 20 
42C3 20 D1 20 

42DC 20 92 96 
42F6 B7 B7 B7 

4316 20 92 20 
4332 20 D1 20 

434F 20 92 9E 

436A B7B7B7 

4389 20 92 96 

43A4 D1 20 D1 


n 

n 


.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 

ASC 

ASC 

ASC 


ASC 

ASC 

ASC 

ASC 

ASC 

ASC 


"{8 SPACE} {RVS} 
{WHT} {OFF} {7 5P 
ACE}{RvS} " 

" {OFF}{23 SPACE 

"{6 SPACE} {SHIF 
T-SRACE} {RVS} {W 

» {7 ^ 

" {OFF}{30 SPACE 

}" 

"{RVS} {WHT} {OF 
F} {RVS}WHITE{0 
FF} {RVS} " 

" {OFF} {24 SPACE 

"{6 SPACE} {RVS 
} {OFF} {RVS}SC 
ORETOFF} {RVS} " 
" {OFF}{25 SPADE 

"{6 SPACE} {RVS 

W {?W} 

"{2 SPACE} {OFF 

"QQQQ{RVS}{WH 
Tf ?OFF}{2 SFACE 
j000{2 SPACE}{R 

"Q(3Q{RVS}{WHT 

® {7S ^ E} 

* {OFF} k3^ 
"QQQQ{RVS}{WH 
TROFF {RVs}fc 
8^BLACK{OFF} {R 
VS} {WHT} " 

" {OFF}E<3>3Q {RV 
Sji<2>fe {0FF}£{ 
YEL}fd4 Y>]" 

>S}^8 




>}lcORE{OFF} {R 
VS} {OFF} " 

" {OFF} {YEL}Nf< 
3>jQ{wS}fc2^ {0 
" Q Q (ttcZ>]{RVS 
} {0TF}t<3Hb{YE 
L}Mt=3^Q{RVS}{ 
WHT} {OFF} {7 SP 
ACE}{FSVS} " 

" {OFF}{YEL}Nk3 
>jQ{YEL}N{fwS}[ 
<2H {OFF} {YEL}§< 
14 Y>|" 

"^8 Y^[<2H{RVS 
} {0FF}{YEL}IVltc3 
>jQ{YEL}M{RVS}{ 
WHT} {OFF} {2 SP 
ACE}000{2 SPACE 
}{RVS} * 

h {OFF}[<3>3Q{YEL 
}N{RED}Q{RVS}k 

^{OFFrW 

Q Q Q Q Q Q Q " 
"QfrOfikkNRVS 


{WHT} (OFF) {7 
ACE}{RVS} " 


43C3 20 92 9E ASC 

43DD 20 20 20 .ASC 


43F7 

20 92 1C 

.ASC 

4411 

20 20 20 

.ASC 

4429 

20 92 12 

.ASC 

4442 

20 20 20 

.ASC 

4459 

20 9B 20 

.ASC 

4472 

20 20 20 

.ASC 

4485 

20 9B 20 

.ASC 

449E 

20 20 20 

.ASC 

44B1 

20 98 20 

.ASC 

44C9 

20 20 20 

.ASC 

44DD 

20 92 20 

.ASC 

44F7 

20 20 20 

.ASC 

450F 

20 92 20 

.ASC 

452A 

20 20 20 

.ASC 

453F 

20 92 20 

.ASC 

4559 

20 20 20 

.ASC 

4571 

92 20 12 

.ASC 

458B 

20 20 20 

.ASC 

459E 

459F 

459F 

00 

TABLE2 

9C 57 48 

.BYTE 

.ASC 

45AB 

45AC 

45AC 

00 

TABLE3 

9C 42 4C 

.BYTE 

.ASC 

45B8 

00 

.BYTE 


" {OFF}{YEL}N{RE 

7°W^ {1 

"{7 SPACE}E<*>g{ 
OFF}{RED}Q{YEL} 
M{RVS}{WHT} {0 
FF}{7 SRACE}{RV 
S} " 

" {0FF}{RED}Q{R 
VS}fc8^{19 SPA 

"{8 SPACE}fc*>J{ 
OFF}{RED}Q{RVS} 

" {0FF}{RVS}Fc8 
>]£{20 SPACE}" 

"{8 SRACE}fsr>j{ 
OFF) {RVS} {WHT 

" &>\{23 SRACE} 

"{7 SPACE} {WHT 
} {OFF}{7 SPACE} 
{RVS} " 

" fc8H{23 SPACE} 

"{7 SPACE} {WHT 
} {OFF} {7 SPACE} 
{RVS} " 

" fc5>]{22 SPACE} 

"{8 SPACE} {WHT 
} {OFF} {7 SRACE} 


7 SPACE}" “ 

"{5 SmCE}£<*>J{R 
VS} {OFF}£ {RVS 
}{WHT} (OFFH 
7 SPACE} {RVS} " 

" {OFF} fc4>] {RV 
S}{5 SPACE}RING 
SIDE{2 SPACE}KA 
RATE" 

"{5 SPACE} {OFF} { 
2 SPACE} {RVS} { 
WHT} {0rF}{7 SP 
ACE}{fwS} " 

" {OFF} \<A>\ {RV 
S} {OFF}{18 S WC 

"{6 SPACE} {RVS 
} {OFF} {2 SPACE} 
{RVS} {WHT} {OFF 
j{7 SPACE}{RVS 

{OFF} {RVS}{WH 
T}{22 SPACE}" 
"{16 SPACE} {2 UP 
HOFF}" 


"|PUR}WHITE 


WIN 


"jPURJBLACK 


WIN 


n 

n 

n 

n 


n 

n 

n 

n 

n 
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u Eagles and 
“ Gators 

i_J Source code by Philip I. Nelson 


0801 




$0801 084A 

E6 05 M0V2 

INC 

$05 





084C 

DO 02 

BNE 

M0V3 

assorted declarations 


084E 

E6 06 

INC 

$06 





0850 

4C 36 08 M0V3 

JMP 

M0V1 

0801 


PR7C0L 


$0286 ; execute at new location 



0801 


BUTN1 

= 

$0367 0853 

MOVDUN 

= 

* 

0801 


BUTN2 

= 

$036A 0853 

4C 00 40 

JMP 

$4000 

0801 


MYRAS1 


$4A88 





0801 


MYRAS2 

= 

$4A89 





0801 


6ATSCR 

=3 

$4A8A 

$4000 to $44ff 



0801 


EAGSCR 

= 

$4A8B 

main code starts here, this part 



0801 


RASTER 

= 

$D012 

handles title screen display and 



0801 


ENABLE 

= 

$D015 

animation, instruction screen, 



0801 


YEXMN 

= 

$D017 

skill level screen, and main 



0801 


VICIRQ 

= 

$D019 

setup for game. 



0801 


XEXfiAN 

= 

$D01D 





0801 


BORDER 

= 

$D020 

4000 


*= 

$4000 

0801 


BACKGR 

= 

$D021 





0801 


J0Y1 

= 

$DC00 

clear variable storage area 



0801 


JOY2 


$DC01 4000 

A9 3B 

LDA 

#$3B 

0801 


TIMALJ0 

= 

$DC04 4002 

85 FB 

STA 

$FB 

0801 


RESET 

= 

$FCE2 4004 

A9 03 

LDA 

#3 

0801 


CHROUT 

= 

$FFD2 4006 

85 FC 

STA 

$FC 

0801 


PLOT 

= 

$FFF0 

4008 

AO BF 

LDY 

#$BF 

0801 


SCNKEY 

= 

SFF9F 

400A 

A9 00 CLRWR 

LDA 

#0 

0801 


GETIN 

= 

$FFE4 

400C 

91 FB 

STA 

($FB),Y 

0801 


UDT1M 

= 

SFFEA 

400E 

88 

DEY 






400F 

DO F9 

BNE 

CLRWR 

; begin with false basic line 


; clear sid chip - silence 



; so vou can load and run like basic 

4011 

A9FF 

LDA 

#$FF 





4013 

85 FB 

STA 

$FB 

0801 

18 08 00 


.BYT 

24,8,0,0,158 

4015 

A9D3 

LDA 

#$D3 

0806 

32 30 37 


.ASC 

, '2076:’’ 

4017 

85 FC 

STA 

$FC 

080B 

8F 22 14 


.BYT 

143,34,20,20,20,20 

4019 

AO 19 

LDY 

#$19 

0811 

45 41 47 


ASC 

“EAGLES” 

401B 

A9 00 CLRSID 

LDA 

#0 

0817 

00 00 00 


.BYT 

0,0,0,0,0 

401D 

91 FB 

STA 

($FB),Y 





401F 

88 

DEY 


; relocate main program to $4000 


4020 

DO F9 

BNE 

CLRSID 






print title screen and prompts 



081C 

A0 00 


LDY 

#0 

4022 

A9 93 

LDA 

#$93 

081E 

A9 56 


LDA 

#$56 

4024 

20 D2 FF 

JSR 

CHROUT 

0820 

85 03 


STA 

$03 

4027 

A9 00 

LDA 

#0 

0822 

A9 08 


LDA 

#8 

4029 

8D20 DO 

STA 

BORDER 

0824 

85 04 


STA 

$04 

402C 

8D21 DO 

STA 

BACKGR 

0826 

A9 00 


LDA 

#0 

402F 

18 

CLC 


0828 

85 05 


STA 

$05 

4030 

AO OB 

LDY 

#$0B 

082A 

A9 40 


LDA 

#$40 

4032 

A2 05 

LDX 

#5 

082C 

85 06 


STA 

$06 

4034 

20 FO FF 

JSR 

PLOT 

082E 

A9E3 


LDA 

#$E3 

4037 

A9 00 

LDA 

#0 

0830 

85 FB 


STA 

$FB 

4039 

85 FB 

STA 

$FB 

0832 

A9 1C 


LDA 

#$1C 

403B 

A9 45 

LDA 

#$45 

0834 

85 FC 


STA 

$FC 

403D 

85 FC 

STA 

$FC 

0836 

A5 03 

M0V1 

LDA 

$03 

403F 

20 AD 42 

JSR 

PRTIT 

0838 

E5 FB 


SBC 

$FB 

4042 

18 

CLC 


083A 

A5 04 


LDA 

$04 

4043 

AO OC 

LDY 

#$OC 

083C 

E5 FC 


SBC 

$FC 

4045 

A2 08 

LDX 

#8 

083E 

B0 13 


BCS 

MOVDUN 

4047 

20 FO FF 

JSR 

PLOT 

0840 

B1 03 


LDA 

($03),Y 

404A 

A9 14 

LDA 

#$14 

0842 

91 05 


STA 

($05),Y 

404C 

85 FB 

STA 

$FB 

0844 

E6 03 


INC 

$03 

404E 

A9 45 

LDA 

#$45 

0846 

DO 02 


BNE 

M0V2 

4050 

85 FC 

STA 

$FC 

0848 

E6 04 


INC 

$04 

4052 

20 AD 42 

JSR 

PRTIT 
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; relocate sprite shape data 



40DC 

18 

CLC 


; and set up sounds 



40DD 

AO 11 

LDY 

#$11 

4055 

20 IE 43 

JSR 

SHPREL 

40DF 

A2 OF 

LDX 

#$0F 

4058 

18 

CLC 


40E1 

20 FO FF 

JSR 

PLOT 

4059 

AO OA 

LDY 

#$0A 

40E4 

A9 68 

LDA 

#$68 

405B 

A2 0E 

LDX 

#$0E 

40E6 

85 FB 

STA 

$FB 

405D 

20 FO FF 

JSR 

PLOT 

40E8 

A9 45 

LDA 

#$45 

4060 

A9 26 

LDA 

#$26 

40EA 

85 FC 

STA 

$FC 

4062 

85 FB 

STA 

$FB 

40EC 

20 AD 42 

JSR 

PRTU 

4064 

A9 45 

LDA 

#$45 

; press 

1-9 for skill or q to Quit 



4066 

85 FC 

STA 

$FC 

; scan keyboard 



4068 

20 AO 42 

JSR 

PRTIT 

40EF 

20 9F FF KEY2 

JSR 

SCNKEY 

406B 

20 CD 42 

JSR 

SETTU 

40F2 

20 E4 FF 

JSR 

GETIN 

; animation loop for title screen 



40F5 

C9 00 

CMP 

#0 

406E 

18 ANUU 

CLC 


40F7 

FO F6 

BEQ 

KEY2 

406F 

AO OD 

LDY 

#$0D 

; is it 'a' 



4071 

A2 11 

LDX 

#$11 

40F9 

C9 51 

CMP 

#$51 

4073 

20 FO FF 

JSR 

PLOT 

40FB 

DO 03 

BNE 

KEY3 

4076 

A9 3B 

LDA 

#$3B 

; quit - 

jump to power-on reset 



4078 

85 FB 

STA 

$FB 

40FD 

4CE2 FC 

JMP 

RESET 

407A 

A9 45 

LDA 

#$45 

; reject if lower than ‘1’ 



407C 

85 FC 

STA 

$FC 

4100 

C9 31 KEY3 

CMP 

#$31 

407E 

AO 00 

LDY 

#0 

4102 

BO 03 

BCS 

KEY4 

; move sprites on title screen 



4104 

4C EF 40 

JMP 

KEY2 

4080 

20 BD42 TITMOR 

JSR 

MOVTU 

; reject if higher than *9’ 



; random printing color 



4107 

C9 3A KEY4 

CMP 

#$3A 

4083 

AD 04 DC 

LDA 

TIMALO 

4109 

B0E4 

BCS 

KEY2 

4086 

8D 86 02 

STA 

PRTCOL 

41 OB 

38 

SEC 


4089 

B1 FB 

LDA 

($FB),Y 

41OC 

E9 30 

SBC 

#$30 

408B 

C9 7E 

CMP 

#$7E 

; record skill level 


408D 

FO 07 

BEQ 

KEY1 

41OE 

8D 3F 03 

STA 

$033F 

408F 

20 D2FF 

JSR 

CHROUT 

; clear screen 


4092 

C8 

INY 


4111 

A9 93 

LDA 

#$93 

4093 

4C 80 40 

JMP 

TUMOR 

4113 

20 D2 FF 

JSR 

CHROUT 

; check for y or n keypress 



4116 

00 00 00 

JSR 

SETSID 

4096 

20 9F FF KEY1 

JSR 

SCNKEY 

; go begin game 



4099 

20 E4 FF 

JSR 

GETIN 

4119 

00 00 00 

JMP 

MAINLOOP 

409C 

C9 00 

CMP 

#0 




409E 

FO CE 

BEQ 

ANUU 





; is it y 



; display instruction screen 



40A0 

C9 59 

CMP 

#$59 

J 




40A2 

FO 78 

BEQ 

INSTRU 

411C 

A9 93 INSTRU 

LDA 

#$93 

; is it ‘n’ 



411E 

20 D2 FF 

JSR 

CHROUT 

40A4 

C9 4E 

CMP 

#$4E 

4121 

20 74 42 

JSR 

INSINT 

40A6 

FO 03 

BEQ 

PIKSKL 

4124 

18 

CLC 


40A8 

4C6E40 

JMP 

ANUU 

4125 

AO 04 

LDY 

#4 

; 




4127 

A2 00 

LDX 

#0 

; — 




4129 

20 FO FF 

JSR 

PLOT 

; display pick-skill-level screen 



412C 

A9 7C 

LDA 

#$7C 

; 




412E 

85 FB 

STA 

$FB 

40AB 

A9 93 PIKSKL 

LDA 

#$93 

4130 

A9 45 

LDA 

#$45 

40AD 

20 02 FF 

JSR 

CHROUT 

4132 

85 FC 

STA 

$FC 

40B0 

20 74 42 

JSR 

INSINT 

4134 

A9 05 

LDA 

#5 

40B3 

20 60 41 

JSR 

MAINSET 

4136 

85 FD 

STA 

$FD 

40B6 

18 

CLC 


4138 

A9 47 

LDA 

#$47 

40B7 

AO 11 

LDY 

#$11 

413A 

85 FE 

STA 

$FE 

40B9 

A2 09 

LDX 

#9 

413C 

AO 00 

LDY 

#0 

40BB 

20 FO FF 

JSR 

PLOT 

413E 

B1 FB INSTR1 

LDA 

($FB),Y 

4QBE 

A9 4C 

LDA 

#$4C 

4140 

20 D2 FF 

JSR 

CHROUT 

40C0 

85 FB 

STA 

$FB 

4143 

A5FB 

LDA 

$FB 

40C2 

A9 45 

LDA 

#$45 

4145 

C9 FF 

CMP 

#$FF 

40C4 

85 FC 

STA 

$FC 

4147 

90 02 

BCC 

N01 

40C6 

20 AD 42 

JSR 

PRTU 

4149 

E6 FC 

INC 

$FC 

4009 

18 

CLC 


414B 

E6 FB N01 

INC 

$FB 

40CA 

AO 14 

LDY 

#$14 

414D 

A5 FB 

LDA 

$FB 

40CC 

A2 0B 

LDX 

#$0B 

414F 

C5 FD 

CMP 

$FD 

40CE 

20 FO FF 

JSR 

PLOT 

4151 

A5FC 

LDA 

$FC 

4001 

A9 5E 

LDA 

#$5E 

4153 

E5 FE 

SBC 

$FE 

40D3 

85 FB 

STA 

$FB 

4155 

90 E7 

BCC 

INSTR1 

4005 

A9 45 

LDA 

#$45 

; wait for either joystick button 



40D7 

85 FC 

STA 

$FC 

4157 

00 00 00 INSTRMO 

JSR 

SCNJOY 

4009 

20 AD 42 

,JSR 

PRTU 

415A 

AD 67 03 

LDA 

BUTN1 




The Source Code 




415D C9 00 CMP #0 

415F F0 09 BEQ INSTRDN 

4161 AD 6A 03 LDA BUTN2 

4164 C9 00 CMP #0 

4166 F0 02 BEQ INSTRDN 

4168 DO ED BNE INSTRMO 

; exit to pick-skill-level screen 
416A 4C AB 40 INSTRDN JMP PIKSKL 


; main setup for game 

416D MAINSET 

; gator shape pointer shadow reg’s 
; are located at $0341-$0347. 

; use shapes $e4-$f1 
416D A9 40 


416F 

4171 

4173 

4175 

4177 

4179 

417B 

417D 

417F 

4181 

4183 


85 FB 
A9 03 
85 FC 
A9E4 
85 FD 
A0 08 
A5FD 
91 FB 
E6 FD 
E6 FD 


MSET1 


LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

STA 

INC 

INC 

DEY 


#$40 

$FB 

#3 

$FC 

#$E4 

$FD 

#8 

$FD 

($FB),Y 

$FD 


41 CD 8D 6D 03 STA 

41 DO 8D 6F 03 STA 

; gator vertical position shadows 
; start at $0372. each gator begins 
; $0a pixels lower than the last 
41D3 A9 71 


41D5 85 FB 

41D7 A9 32 

41D9 85 FD 

41DB AO 08 

41DD A5 FD MSET5 

41DF 91 FB 

41 El 18 

41E2 69 OA 

41E4 85 FD 

41E6 88 

41E7 DO F4 

; eagle vertical position shadows 
; start at $037a. each one begins 
; $0a pixels higher than the last 
41E9 A9 79 


41EB 
41 ED 
41EF 
41 FI 
41F3 
41F5 
41F7 


85 FB 
A9E6 
85 FD 
AO 08 
A5FD 
91 FB 
38 


MSET6 


LDA 

STA 

LDA 

STA 

LDY 

LDA 

STA 

CLC 

ADC 

STA 

DEY 

BNE 


LDA 

STA 

LDA 

STA 

LDY 

LDA 

STA 

SEC 


$036D 

$036F 


#$71 

$FB 

#$32 

$FD 

#8 

$FD 

($FB),Y 

#$0A 

$FD 

MSET5 


#$79 

$FB 


#8 

$FD 

($FB),Y 


4184 

CO 01 

CPY 

#1 

41F8 E9 0A 

SBC 

#$0A 

4186 

D0F3 

BNE 

MSET1 

41 FA 85 FD 

STA 

$FD 

; gator color shadow registers 



41FC 88 

DEY 


; are from $$0348-$034f. all 13. 



41 FD DO F4 

BNE 

MSET6 

4188 

A9EA 

LDA 

#$EA 

; eagle direction flags start at 



418A 

91 FB 

STA 

($FB),Y 

; $0382. gator direction flags 
; start at $038a. for these, 



418C 

AO 08 

LDY 

#8 



418E 

A9 48 

LDA 

#$48 

; 255=down, 1=up and 0=clamped. 


4190 

85 FB 

STA 

$FB 

; creatures alternate directions 



4192 

A9 OD MSET2 

LDA 

#$00 

; at beginning of game. 


#$81 

4194 

91 FB 

STA 

($FB),Y 

41FF A9 81 

LDA 

4196 

88 

DEY 

4201 85 FB 

STA 

$FB 

4197 

DO F9 

BNE 

MSET2 

4203 AO 10 

LDY 

#$10 

; eagle shape pointer shadow reg’s 


4205 A9 FF MSET7 

LDA 

#$FF 

; are from $0351-$0357. 



4207 91 FB 

STA 

($FB),Y 

; use shapes $f2-$ff. 



4209 88 

DEY 


4199 

A9 50 

LDA 

#$50 

420A A9 01 

LDA 

#1 

419B 

85 FB 

STA 

$FB 

420C 91 FB 

STA 

($FB),Y 

419D 

A9F2 

LDA 

#$F2 

420E 88 

DEY 


419F 

85 FD 

STA 

$FD 

420F DO F4 

BNE 

MSET7 

41A1 

AO 08 

LDY 

#8 

; pointers to data areas 



41A3 

A5 FD MSET3 

LDA 

$FD 

4211 A9 82 

LDA 

#$82 

41A5 

91 FB 

STA 

($FB),Y 

4213 8D92 03 

STA 

$0392 

41A7 

E6FD 

INC 

$FD 

4216 A9 8A 

LDA 

#$8A 

41A9 

E6 FD 

INC 

$FD 

4218 8D 94 03 

STA 

$0394 

41AB 

88 

DEY 


421B A9 72 

LDA 

#$72 

41AC 

CO 01 

CPY 

#1 

421D 8D 96 03 

STA 

$0396 

41AE 

D0F3 

BNE 

MSET3 

4220 A9 7A 

LDA 

#$7A 

; eagle color shadow registers 



4222 8D 98 03 

STA 

$0398 

; are from $035940360. all 0. 



4225 A9 03 

LDA 

#3 

41 BO 

A9F2 

LDA 

#$F2 

4227 8D93 03 

STA 

$0393 

41B2 

91 FB 

STA 

($FB),Y 

422A 8D95 03 

STA 

$0395 

41B4 

A9 59 

LDA 

#$59 

422D 8D 97 03 

STA 

$0397 

41B6 

85 FB 

STA 

$FB 

4230 8D 99 03 

STA 

$0399 

41B8 

AO 07 

LDY 

#7 

; set horizontal position for all 



41 BA 

A9 00 MSET4 

LDA 

#0 

; sprites, these don't change 



41BC 

91 FB 

STA 

($FB),Y 

; during the course of the game. 


#$1E 

41 BE 

88 

DEY 

4233 A9 1E 

LDA 

41BF 

DO F9 

BNE 

MSET4 

4235 8D 00 DO 

STA 

$0000 

41 Cl 

A9 5B 

LDA 

#$5B 

4238 A9 46 

LDA 

#$46 

41C3 

8D6C03 

STA 

$036C 

423A 80 02 DO 

STA 

$D002 

41C6 

A9 4E 

LDA 

#$4E 

423D A9 6E 

LDA 

#$6E 

4105 

8D6E03 

STA 

$036E 

423F 80 04 DO 

STA 

$D004 

41CB 

A9 03 

LDA 

#3 

4242 A9 96 

LDA 

#$96 
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4244 8D06D0 

STA 

$D006 

42BC 

60 PRTDUN 

RTS 


4247 A9 BE 

LDA 

#$BE 





4249 8D08D0 

STA 

$D008 





424C A9E6 

LDA 

#$E6 

move sprites for title screen 



424E 8D0AD0 

STA 

$D00A 





4251 A9 OF 

LDA 

#$0F 

42BD 

EE 01 DO MOVTIT 

INC 

$D001 

4253 8D0CD0 

STA 

$D00C 

42C0 

CE 03 DO 

DEC 

$D003 

4256 A9 37 

LDA 

#$37 

42C3 

CE ODDO 

DEC 

$D00D 

4258 8D0ED0 

STA 

$D00E 

42C6 

EE OF DO 

INC 

$D00F 

; msb for horizontals 



do title sound effects 



425B A9C0 

LDA 

#$C0 

42C9 

20 CA44 

JSR 

SNDTIT 

425D 8D 10 DO 

STA 

$D010 

42CC 

60 

RTS 


; no vert or horizontal expansion 







4260 A9 00 

LDA 

#0 

;— 




4262 8D 17 DO 

STA 

$D017 

set up sprites for title scm 



4265 8D1DD0 

STA 

$D01D 





; sid volume down low 


42CD 

A9 IE SETTIT 

LDA 

#$1E 

4268 A9 01 

LDA 

#1 

42CF 

8D00 DO 

STA 

$D000 

426A 8D 18 D4 

STA 

$D418 

42D2 

A9 46 

LDA 

#$46 

426D EA 

NOP 

42D4 

8D02 DO 

STA 

$D002 

; enable all sprites 


42D7 

A9C0 

LDA 

#$C0 

426E A9FF 

LDA 

#$FF 

42D9 

8D 10 DO 

STA 

$D010 

4270 8D15D0 

STA 

ENABLE 

42DC 

A9 OF 

LDA 

#$0F 

4273 60 

RTS 

42DE 

8D OC DO 

STA 

$D00C 



42E1 

A9 37 

LDA 

#$37 

;— 


42E3 

8D OE DO 

STA 

$D00E 

; set up split screen effects 


42E6 

A9 07 

LDA 

#7 



42E8 

8D27 DO 

STA 

$D027 

4274 INSINT 

= 

* 42EB 

8D 2E DO 

STA 

$D02E 

; disable interrupts 


42EE 

A9 0D 

LDA 

#$0D 

4274 78 

SEI 

42F0 

8D28 DO 

STA 

$0028 

4275 A9 00 

LDA 

#0 

42F3 

8D 2D DO 

STA 

$D02D 

4277 8D0EDC 

STA 

$DC0E 42F6 

A9C3 

LDA 

#$C3 

; divert irq vector at $0314/$0315 

42F8 

8D 15 DO 

STA 

ENABLE 

; to point to our code at $4a8c. 


42FB 

A9 FF 

LDA 

#$FF 

427A A9 8C 

LDA 

#$8C 42FD 

8D F8 07 

STA 

$07F8 

427C 8D14 03 

STA 

$0314 4300 

8D FF 07 

STA 

$07FF 

427F A9 4A 

LDA 

#$4A 4303 

A9 E4 

LDA 

#$E4 

4281 8D 15 03 

STA 

$0315 4305 

8D F9 07 

STA 

$07F9 

; top-of-screen split value 


4308 

A9EA 

LDA 

#$EA 

4284 A9 OF 

LDA 

#$0F 430A 

8D FE 07 

STA 

$07FE 

4286 8D 88 4A 

STA 

MYRAS1 430D 

60 

RTS 


; set split at screen line 150 


430E 

EA 

NOP 


4289 A9 96 

LDA 

#$96 430F 

EA 

NOP 


428B 8D 89 4A 

STA 

MYRAS2 





428E A9 00 

LDA 

#0 

__ 




4290 8D8A4A 

STA 

GATSCR 

relocate a sprite shape 



4293 A9 03 

LDA 

#3 





4295 8D8B4A 

STA 

EAGSCR 4310 

AO 00 RELQNE 

LDY 

#0 

; hi bit of raster compare reg off 


4312 

B1 FB RELMOR 

LDA 

($FB),Y 

4298 AD 11 DO 

LDA 

$D011 4314 

91 FD 

STA 

($FD),Y 

429B 29 7F 

AND 

#$7F 4316 

C8 

INY 


429D 8D 11 DO 

STA 

$D011 4317 

CO 40 

CPY 

#$40 

; set raster compare to 150 


4319 

FO 02 

BEQ 

RELDUN 

42A0 AD89 4A 

LDA 

MYRAS2 431B 

DO F5 

BNE 

RELMOR 

42A3 8D12D0 

STA 

$D012 431D 

60 RELDUN 

RTS 


; enable raster compare irq 







42A6 A9 01 

LDA 

#i 

— 




42A8 8D1AD0 

STA 

$D01A 

relocate all sprite shape data 



; enable interrupts 



and set up sid chip for sounds 



42AB 58 

CLI 






42AC 60 

RTS 

431E 

A9 08 SHPREL 

LDA 

#8 



4320 

85 FB 

STA 

$FB 

;— 


4322 

A9 47 

LDA 

#$47 

; text output 


4324 

85 FC 

STA 

$FC 

42AD AO 00 PRT1T 

LDY 

#0 4326 

A9 CO 

LDA 

#$C0 

42AF B1 FB PTMOR 

LDA 

($FB),Y 4328 

85 FD 

STA 

$FD 

42B1 C9 7E 

CMP 

#$7E 432A 

A9 3 A 

LDA 

#$3A 

42B3 FO 07 

BEQ 

PRTDUN 432C 

85 FE 

STA 

$FE 

42B5 20 D2 FF 

JSR 

CHROUT 432E 

20 10 43 

JSR 

RELONE 

42B8 C8 

INY 

4331 

A9 80 

LDA 

#$80 

42B9 4CAF42 

JMP 

PTMOR 4333 

85 FD 

STA 

$FD 
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4335 

20 10 43 

JSR 

RELONE 

43D2 

85 FD 

STA 

$FD 

4338 

A9 48 

LDA 

#$48 

43D4 

A9 3E 

LDA 

#$3E 

433A 

85 FB 

STA 

$FB 

43D6 

85 FE 

STA 

$FE 

433C 

A9 00 

LDA 

#0 

43D8 

20 10 43 

JSR 

RELONE 

433E 

85 FD 

STA 

$FD 

43DB 

A9 00 

LDA 

#0 

4340 

A9 3B 

LDA 

#$3B 

43DD 

85 FD 

STA 

$FD 

4342 

85 FE 

STA 

$FE 

43DF 

20 10 43 

JSR 

RELONE 

4344 

20 10 43 

JSR 

RELONE 

43E2 

A9 08 

LDA 

#8 

4347 

A9 40 

LDA 

#$40 

43E4 

85 FB 

STA 

$FB 

4349 

85 FD 

STA 

$FD 

43E6 

A9 49 

LDA 

#$49 

434B 

A9 3A 

LDA 

#$3A 

43E8 

85 FC 

STA 

$FC 

434D 

85 FE 

STA 

$FE 

43EA 

A9 80 

LDA 

#$80 

434F 

20 10 43 

JSR 

RELONE 

43EC 

85 FD 

STA 

$FD 

4352 

A9 88 

LDA 

#$88 

43EE 

20 10 43 

JSR 

RELONE 

4354 

85 FB 

STA 

$FB 

43F1 

A9C0 

LDA 

#$C0 

4356 

A9 00 

LDA 

#0 

43F3 

85 FD 

STA 

$FD 

4358 

85 FD 

STA 

$FD 

43F5 

A9 3D 

LDA 

#$3D 

435A 

20 10 43 

JSR 

RELONE 

43F7 

85 FE 

STA 

$FE 

4350 

A9 40 

LDA 

#$40 

43F9 

20 10 43 

JSR 

RELONE 

435F 

85 FD 

STA 

$FD 

43FC 

A9 48 

LDA 

#$48 

4361 

A9 3B 

LDA 

#$3B 

43FE 

85 FB 

STA 

$FB 

4363 

85 FE 

STA 

$FE 

4400 

A9 80 

LDA 

#$80 

4365 

20 10 43 

JSR 

RELONE 

4402 

85 FD 

STA 

$FD 

4368 

A9C8 

LDA 

#$C8 

4404 

20 10 43 

JSR 

RELONE 

436A 

85 FB 

STA 

$FB 

4407 

A9C0 

LDA 

#$C0 

436C 

A9 80 

LDA 

#$80 

4409 

85 FD 

STA 

$FD 

436E 

85 FD 

STA 

$FD 

440B 

A9 3E 

LDA 

#$3E 

4370 

20 10 43 

JSR 

RELONE 

440D 

85 FE 

STA 

$FE 

4373 

A9C0 

LDA 

#$C0 

44QF 

20 10 43 

JSR 

RELONE 

4375 

85 FD 

STA 

$FD 

4412 

A9 88 

LDA 

#$88 

4377 

A9 39 

LDA 

#$39 

4414 

85 FB 

STA 

$FB 

4379 

85 FE 

STA 

$FE 

4416 

A9 00 

LDA 

#0 

437B 

20 10 43 

JSR 

RELONE 

4418 

85 FD 

STA 

$FD 

437E 

A9 08 

LDA 

#8 

441A 

A9 3F 

LDA 

#$3F 

4380 

85 FB 

STA 

$FB 

441C 

85 FE 

STA 

$FE 

4382 

A9 48 

LDA 

#$48 

441E 

20 10 43 

JSR 

RELONE 

4384 

85 FC 

STA 

$FC 

4421 

A9 40 

LDA 

#$40 

4386 

A9 80 

LDA 

#$80 

4423 

85 FD 

STA 

$FD 

4388 

85 FD 

STA 

$FD 

4425 

A9 3D 

LDA 

#$3D 

438A 

20 10 43 

JSR 

RELONE 

4427 

85 FE 

STA 

$FE 

438D 

A9C0 

LDA 

#$C0 

4429 

20 10 43 

JSR 

RELONE 

438F 

85 FD 

STA 

$FD 

442C 

A9C8 

LDA 

#$C8 

4391 

A9 3B 

LDA 

#$3B 

442E 

85 FB 

STA 

$FB 

4393 

85 FE 

STA 

$FE 

4430 

A9 00 

LDA 

#0 

4395 

20 10 43 

JSR 

RELONE 

4432 

85 FD 

STA 

$FD 

4398 

A9 48 

LDA 

#$48 

4434 

20 10 43 

JSR 

RELONE 

439A 

85 FD 

STA 

$FB 

4437 

A9 40 

LDA 

#$40 

439C 

A9 40 

LDA 

#$40 

4439 

85 FD 

STA 

$FD 

439E 

85 FD 

STA 

$FD 

443B 

A9 3F 

LDA 

#$3F 

43A0 

A9 39 

LDA 

#$39 

443D 

85 FE 

STA 

$FE 

43A2 

85 FE 

STA 

$FE 

443F 

20 10 43 

JSR 

RELONE 

43A4 

20 10 43 

JSR 

RELONE 

4442 

A9 08 

LDA 

#8 

43A7 

A9 00 

LDA 

#0 

4444 

85 FB 

STA 

$FB 

43A9 

85 FD 

STA 

$FD 

4446 

A9 4A 

LDA 

#$4A 

43AB 

A9 3C 

LDA 

#$3C 

4448 

85 FC 

STA 

$FC 

43AD 

85 FE 

STA 

$FE 

444A 

A9C0 

LDA 

#$C0 

43AF 

20 10 43 

JSR 

RELONE 

444C 

85 FD 

STA 

$FD 

43B2 

A9 88 

LDA 

#$88 

444E 

A9 3C 

LDA 

#$3C 

43B4 

85 FB 

STA 

$FB 

4450 

85 FE 

STA 

$FE 

43B6 

A9 40 

LDA 

#$40 

4452 

20 10 43 

JSR 

RELONE 

43B8 

85 FD 

STA 

$FD 

4455 

A9 80 

LDA 

#$80 

43BA 

20 10 43 

JSR 

RELONE 

4457 

85 FD 

STA 

$FD 

43BD 

A9 00 

LDA 

#0 

4459 

A9 3F 

LDA 

#$3F 

43BF 

85 FD 

STA 

$FD 

445B 

85 FE 

STA 

$FE 

43C1 

A9 39 

LDA 

#$39 

445D 

20 10 43 

JSR 

RELONE 

43C3 

85 FE 

STA 

$FE 

4460 

A9 48 

LDA 

#$48 

43C5 

20 10 43 

JSR 

RELONE 

4462 

85 FB 

STA 

$FB 

43C8 

A9C8 

LDA 

#$C8 

4464 

A9C0 

LDA 

#$C0 

43CA 

85 FB 

STA 

$FB 

4466 

85 FD 

STA 

$FD 

43CC 

A9 48 

LDA 

#$48 

4468 

20 10 43 

JSR 

RELONE 

43CE 

85 FC 

STA 

$FC 

446B 

A9 80 

LDA 

#$80 

4300 

A9 40 

LDA 

#$40 

446D 

85 FD 

STA 

$FD 
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446F 

A9 3C 

LDA 

#$3C 

; data for all the different sprite 



4471 

85 FE 

STA 

$FE 

; shapes used in the game. 



4473 

20 10 43 

JSR 

RELONE 





; set up sid chip for sounds 



4500 

8E 08 9F 

.BYT 

142,8,159,0,32,69,6 

4476 

A9 OF 

LDA 

#$0F 




5,71,76,69,83 

4478 

8D05 D4 

STA 

$D405 

450B 

20 26 20 

.BYT 

32,38,32,71,65,84,7 

447B 

8D0CD4 

STA 

$D40C 




9,82,83,32,146 

447E 

8013 D4 

STA 

$0413 

4516 

7E 00 00 

.BYT 

126,0,0,0,0,0,0,0,0,0 

4481 

A9F0 

LDA 

#$F0 




,0 

4483 

8D06D4 

STA 

$D406 

4521 

00 00 00 

.BYT 

0,0,0,0,0,159,87,65, 

4486 

8D OD D4 

STA 

$D40D 




78,84,32 

4489 

8D14 D4 

STA 

$D414 

452C 

49 4E 53 

.BYT 

73,78,83,84,82,85,6 

448C 

A9 3F 

LDA 

#$3F 




7,84,73,79,78 

448E 

SO 00 04 

STA 

$D400 

4537 

53 20 3F 

.BYT 

83,32,63,126,80,82, 

4491 

A9 18 

LDA 

#$18 




69,83,83,32,18 

4493 

8D01 04 

STA 

$D401 

4542 

59 92 20 

.BYT 

89,146,32,79,82,32, 

4496 

A9 42 

LDA 

#$42 




18,78,146,126,144 

4498 

8D07 04 

STA 

$D407 

454D 

50 49 43 

.BYT 

80,73,67,75,32,83,7 

449B 

A9 06 

LDA 

#6 




5,73,76,76,32 

449D 

8D08 D4 

STA 

$0408 

4558 

4C 45 56 

.BYT 

76,69,86,69,76,126, 

44A0 

A9 0C 

LDA 

#$0C 




40,32,49,32,99 

44A2 

8D OE 04 

STA 

$D40E 

4563 

20 39 20 

.BYT 

32,57,32,41,126,158 

44A5 

A9 06 

LDA 

#6 




,80,82,69,83,83 

44A7 

8D OF D4 

STA 

$D40F 

456E 

20 12 51 

.BYT 

32,18,81,146,32,32, 

44AA 

A9 15 

LDA 

#$15 




84,79,32,81,85 

44AC 

8D04 D4 

STA 

$D404 

4579 

49 54 7E 

.BYT 

73,84,126,144,18,11 

44AF 

8D OB 04 

STA 

$D40B 




9,17,157,32,17,157 

44B2 

8D 12 D4 

STA 

$D412 

4584 

9D 00 00 

.BYT 

157,0,0,32,32,32,14 

44B5 

A9 3F 

LDA 

#$3F 




6,99,105,17,157 

44B7 

8D 18 D4 

STA 

$D418 

458F 

7B 91 91 

.BYT 

123,145,145,80,76,8 

44BA 

A9F7 

LDA 

#$F7 




5,71,32,74,79,89 

44BC 

8D 17 D4 

STA 

$D417 

459A 

53 54 49 

.BYT 

83,84,73,67,75,83,3 

44BF 

A9 22 

LDA 

#$22 




2,73,78,46,46 

44C1 

8D16D4 

STA 

$D416 

45A5 

11 11 7B 

.BYT 

17,17,123,145,157,1 

44C4 

A9 OF 

LDA 

#$0F 




17,99,99,99,99,18 

44C6 

8D 15 D4 

STA 

$D415 

45B0 

20 20 20 

.BYT 

32,32,32,145,157,15 

44C9 

60 

RTS 


45BB 

11 11 11 

.BYT 

7,32,145,157,105,1 

41 

17,17,17,0,32,18,80, 

; manage sound effects for title 






79,82,84,32 

j 




45C6 

32 20 46 

.BYT 

50,32,70,79,82,32,6 

44CA 

AD 3E 03 SNDTIT 

LDA 

$033E 




9,65,71,76,69 

44CD 

C9 2F 

CMP 

#$2F 

45D1 

53 92 20 

.BYT 

83,146,32,32,32,18, 

44CF 

FO 04 

BED 

SNDTI2 




80,79,82,84,32 

44D1 

EE 3E03 

INC 

$033E 

45DC 

31 20 46 

.BYT 

49,32,70,79,82,32,7 

44D4 

60 

RTS 





1,65,84,79,82 

44D5 

A9 00 SNDTI2 

LDA 

#0 

45E7 

53 92 8D 

.BYT 

83,146,141,17,0,32, 

44D7 

8D3E03 

STA 

$033E 




67,76,65,77,80 

44DA 

EE3F 03 

INC 

$033F 

45F2 

20 59 4F 

.BYT 

32,89,79,85,82,32,6 

44DD 

AD3F03 

LDA 

$033F 




7,82,69,65,84 

44E0 

8D OE 04 

STA 

$D40E 

45FD 

55 52 45 

.BYT 

85,82,69,83,32,84,7 

44E3 

CE 40 03 

DEC 

$0340 




9,32,84,72,69 

44E6 

AD 40 03 

LDA 

$0340 

4608 

20 42 4F 

.BYT 

32,66,79,82,68,69,8 

44E9 

8D 16 04 

STA 

$D416 




2,32,66,89,141 

44EC 

AD3F 03 

LDA 

$033F 

4613 

11 20 50 

.BYT 

17,32,80,82,69,83,8 

44EF 

C9 35 

CMP 

#$35 




3,73,78,71,32 

44F1 

90 06 

BCC 

SNDTI3 

461E 

12 46 49 

.BYT 

18,70,73,82,69,32,6 

44F3 

A9 18 

LDA 

#$18 




6,85,84,84,79 

44F5 

8D 01 04 

STA 

$D401 

4629 

4E 92 20 

.BYT 

78,146,32,87,72,69, 

44F8 

60 

RTS 





78,32,84,72,69 

44F9 

AD 3F 03 SNDTI3 

LDA 

$033F 

4634 

59 20 48 

.BYT 

89,32,72,73,84,32,7 

44FC 

8D 01 D4 

STA 

$D401 




3,84,105,17,157 

44FF 

60 

RTS 


463F 

62 11 9D 

.BYT 

98,17,157,157,109,9 

8,110,17,157,157,4 

2 

4500 


*= 

$4500 

464A 

11 9D 7A 

.BYT 

17,157,122,141,145, 

145,32,66,79,82,68 

; graphics data. 



4655 

45 52 20 

.BYT 

69,82,32,77,79,86,6 

; the first part of this section 






9,83,32,87,72 

; contains data for the title, 



4660 

45 4E 20 

.BYT 

69,78,32,83,73,68,6 

; instruction, and pick-skill-level 






9,83,32,65,82 

; screens, the second part contains 


466B 

45 20 55 

.BYT 

69,32,85,78,69,81,8 



n 


n 

n 
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4676 

11 11 20 

.BYT 

5,65,76,141,159 

17,17,32,32,32,77,7 

4681 

49 47 48 

.BYT 

9,86,69,32,82 

73,71,72,84,32,79,8 

468C 

54 20 54 

.BYT 

2,32,76,69,70 

84,32,84,79,32,67,7 

4697 

4C 20 41 

.BYT 

9,78,84,82,79 

76,32,65,141,17,32, 

46A2 

20 20 20 

.BYT 

32,32,32,32,32 

32,32,32,68,73,70,7 

46AD 

54 20 43 

.BYT 

0,69,82,69,78 

84,32,67,82,69,65,8 

4688 

11 11 20 

.BYT 

4,85,82,69,141 

17,17,32,32,5,87,73, 

46C3 

20 50 55 

.BYT 

78,32,66,89 

32,80,85,83,72,73,7 

46CE 

50 4F4E 

.BYT 

8,71,32,79,80 

80,79,78,69,78,84,8 

46D9 

20 53 43 

.BYT 

3,32,79,70,70 

32,83,67,82,69,69,7 

46E4 

20 20 20 

.BYT 

8,141,17,17,158 

32,32,32,32,32,18,8 

46EF 

20 46 49 

.BYT 

0,82,69,83,83 

32,70,73,82,69,32,6 

46FA 

4E 20 54 

.BYT 

6,85,84,84,79 

78,32,84,79,32,66,6 

4705 

00 00 00 

.BYT 

9,71,73,78,146 

0,0,0,0,3,128,0,15,1 

4710 

80 06 37 

.BYT 

92,2,31 

128,6,55,128,3,125, 

471B 

FF 30 00 

.BYT 

128,1,255,160,0 

255,48,0,127,224,0, 

4726 

00 FF 60 

.BYT 

127,0,0,127,224 

0.255,96,1,254,0,3,6 

4731 

00 04 IE 

.BYT 

2,0,6,62 

0,4,30,0,0,28,0,0,30, 

473C 

0E 08 00 

.BYT 

0,0 

14,8,0,15,48,0,3,224 

4747 

OOOOOC 

.BYT 

,0,1,128 

0,0,12,0,0,30,0,0,62, 

4752 

3F 00 0E 

.BYT 

0,4 

63,0,14,109,32,3,25 

475D 

00 FF CO 

.BYT 

5,48,0,255,96 

0,255,192,0,127,0,0, 

4768 

60 03 FE 

.BYT 

255,192,0,255 

96,3,254,0,6,124,0,0 

4773 

3C 00 00 

.BYT 

,124,0,0 

60,0,0,60,0,0,60,0,0, 

477E 

00 IE 00 

.BYT 

28,0 

0,30,0,0,15,224,0,3, 

4789 

18 00 00 

.BYT 

128,255,0 

24,0,0,60,0,0,60,0,4, 

4794 

0C5A30 

.BYT 

126,32 

12,90,48,6,255,96,3, 

479F 

00 00 FF 

.BYT 

255,192,0,255 

0,0,255,0,0,255,0,3, 

47AA 

FF 60 00 

.BYT 

255,192,6 

255,96,0,126,0,0,12 

47B5 

00 3C00 

.BYT 

4,0,0,124,0 

0,60,0,0,60,0,0,60,0, 

47C0 

00 00 IE 

.BYT 

0,60 

0,0,30,0,0,7,128,0,0, 

47CB 

00 3C00 

.BYT 

24,0 

0,60,0,0,60,0,4,126, 

47D6 

30 06 FF 

.BYT 

32,12,90 

48,6,255,96,3,255,1 

47E1 

FF 00 00 

.BYT 

92,0,255,0,0 

255,0,0,255,0,3,255, 

47EC 

Q0 7E00 

.BYT 

192,6,255,96 

0,126,0,0,126,0,0,12 

47F7 

00 00 3C 

.BYT 

6,0,0,60 

0,0,60,0,0,60,0,0,60, 





0,0 

4802 

18 00 00 

.BYT 

24,0,0,24,0,247,0,24 

,0,0,60 

480D 

00 00 3C 

.BYT 

0,0,60,0,4,126,32,12 

.90.48,6 

4818 

FF 60 03 

.BYT 

255,96,3,255,192,0, 

255,0,0,255,0 

4823 

00 FF 00 

.BYT 

0,255,0,3,255,192,6, 

255,96,0,126 

482E 

00 00 3E 

.BYT 

0,0,62,0,0,62,0,0,60, 

0,0 

4839 

3COOOO 

.BYT 

60,0,0,60,0,0,60,0,0, 

120,0 

4844 

01 EO 00 

.BYT 

1,224,0,0,0,48,0,0,1 

20,0,0 

484F 

7C 00 00 

.BYT 

124,0,0,252,32,4,18 

2,112,12,255,192 

485A 

06 FF 00 

.BYT 

6,255,0,3,255,0,0,25 

4,0,3,255 

4865 

00 06 FF 

.BYT 

0,6,255,0,0,127,192, 

0,62,96,0 

4870 

3E 00 00 

.BYT 

62,0,0,60,0,0,60,0,0, 

60,0 

487B 

00 38 00 

.BYT 

0,56,0,0,120,0,7,240 

,0,1,192 

4886 

00 FF 01 

.BYT 

0,255,1,192,0,3,240, 

0,1,248,64 

4891 

01 EC 60 

.BYT 

1,236,96,1,190,192, 

5,255,128,12,255 

489C 

00 07 FE 

.BYT 

0,7,254,0,0,254,0,7, 

254,0,6 

48A7 

FF 00 00 

.BYT 

255,0,0,127,128,0,1 

24,192,0,124,96 

48B2 

00 78 20 

.BYT 

0,120,32,0,56,0,0,12 

0,0,16,112 

48BD 

OOOCFO 

.BYT 

0,12,240,0,7,192,0,1 

,128,0,0 

48C8 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0,0,0,0 

48D3 

00 OE 00 

.BYT 

0,14,0,112,31,60,24 

8,127,255,254,126 

48DE 

7E 7E FC 

.BYT 

126,126,252,153,63, 

239,24,247,143,60, 

241 

48E9 

C7E7E3 

.BYT 

199,231,227,7,195,2 

24,3,195,192,7,231 

48F4 

EO IE FF 

.BYT 

224,30,255,120,14,6 

0,48,0,0,0,0 

48FF 

00 00 00 

.BYT 

0,0,0,0,0,0,0,0,255,0 

.0 

0,0,0,0,0,0,0,0,0,0,3 

Q 

490A 

00 00 00 

.BYT 

4915 

00 78 7F 

.BYT 

0,120,127,189,254,2 

55,255,255,222,126 

,123 

4920 

8E DB 71 

.BYT 

142,219,113,15,24,2 

40,3,24,192,7,255 

492B 

EO 07 81 

.BYT 

224,7,129,224,7,195 

,224,3,255,192,7 

4936 

FF EO 3E 

.BYT 

255,224,62,60,124,2 

8,0,56,0,0,0 

4941 

00 00 00 

.BYT 

0,0,0,0,0,0,255,0,0,0 

.0 

0,0,0,0,0,48,0,12,25 

4,0,127 

494C 

00 00 00 

.BYT 

4957 

FF 99 FF 

.BYT 

255,153,255,223,25 

5,251,30,60,120,14, 

255 

4962 

70 07 18 

.BYT 

112,7,24,224,7,24,2 

24,15,255,240,15 

496D 

18 FO 07 

.BYT 

24,240,7,129,224,7, 

255,224,7,255,224 

4978 

IE 7E 78 

.BYT 

30,126,120,62,0,124 

,32,0,4,0,0 
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4983 00 00 00 

.BYT 

0,0,0,0,0,0,0,0,0,0,0 

4A97 

00 00 00 

CPY 

MYRAS1 

498E 00 00 00 

.BYT 

0,0,0,248,0,31,254,0 

4A9A 

FO 01 

BEQ 

RASTA 



,127,127,129 

4A9C 

CA 

DEX 


4999 FE 3F DB 

.BYT 

254,63,219,252,31,6 

; set border and background colors 




0,248,14,255,112,7 

; accordingly, depending on which 



49A4 99 E0 OF 

.BYT 

153,224,15,24,240,1 

; zone you're in (upper or lower). 





5,255,240,14,126,1 

4A9D 

00 FF FF RASTA 

LDA 

GATSCR - 1,X 



12 

4AA0 

00 00 00 

STA 

BACKGR 

49AF 07 18 EO 

.BYT 

7,24,224,3,195,192, 

4AA3 

00 00 00 

STA 

BORDER 



14,255,224,14,126 

; set raster for next compare. 



49BA 70 3E00 

.BYT 

112,62,0,124,34,0,6 

; again, this depends on where you 




8,0,0,0,0 

; are currently. 



49C5 00 00 FF 

.BYT 

0,0,255,0,0,0,192,0, 

4AA6 

00 FF FF 

LDA 

MYRAS1 - 1.X 



3,224,0 

4AA9 

00 00 00 

STA 

RASTER 

49D0 07 7C00 

.BYT 

7,124,0,62,127,129, 

4AAC 

00 00 00 

LDA 

VICIRQ 



254,63,129,252,31 

4AAF 

00 00 00 

STA 

VICIRQ 

49DB DBFS 06 

.BYT 

219,248,6,255,96,3, 

; when x<>1 you’re in the gator zone 




60,192,7,153,224 

4AB2 

EO 01 

CPX 

#1 

49E6 OE 18 70 

.BYT 

14,24,112,15,255,24 

4AB4 

DO 06 

BNE 

GATIRQ 



0,12,255,48,7,60 

; hi-ho, hi-ho, to eaglesville we go... 


49F1 EO 03 81 

.BYT 

224,3,129,192,3,255 

4AB6 

20 C8 4A 

JSR 

EGLSTUF 



,192,15,126,240,24 

4AB9 

4C C2 4A 

JMP 

ENDIRQ 

49FC 00 18 3E 

.BYT 

0,24,62,0,124,50,0,7 

; 






6,0,0,0 

4ABC 

20 59 4B GATIRQ 

JSR 

GTRSTUF 

4A07 00 CO 00 

.BYT 

0,192,0,3,192,0,3,11 

4ABF 

00 00 00 

JSR 

UDTIM 



2,0,14,126 

; exit this interrupt 



4A12 00 7E3F 

.BYT 

0,126,63,129,252,31 

4AC2 

68 ENDIRQ 

PLA 




,129,248,31,195,24 

4AC3 

A8 

TAY 




8 

4AC4 

68 

PLA 


4A1D 06 FF 60 

.BYT 

6,255,96,3,126,192, 

4AC5 

AA 

TAX 




7,153,224,14,24 

4AC6 

68 

PLA 


4A28 70 OF DB 

.BYT 

112,15,219,240,12,2 

4AC7 

40 

RTI 




55,48,6,60,96,3 





4A33 81 CO 03 

.BYT 

129,192,3,255,192,1 







4,126,224,28,0,56 

; we’re above screen split 



4A3E 3F00FC 

.BYT 

63,0,252,49,0,140,4 

; transfer eagle shadow registers 





8,0,12,255,28 

; into sprite control registers. 



4A49 00 38 30 

.BYT 

0,56,48,0,12,56,0,28 

; 






,62,0,124 

4AC8 

AD 7A 03 EGLSTUF 

LDA 

$037A 

4A54 3F 81 FC 

.BYT 

63,129,252,31,195,2 

4ACB 

8D 01 DO 

STA 

$D001 



48,15,195,240,6,25 

4ACE 

AD 7B 03 

LDA 

$037B 



5 

4AD1 

8D 03 DO 

STA 

$0003 

4A5F 60 03 7E 

.BYT 

96,3,126,192,7,189, 

4AD4 

AD7C03 

LDA 

$037C 



224,14,24,112,11 

4AD7 

8D 05 DO 

STA 

$D005 

4A6A DB DO OC 

.BYT 

219,208,12,255,48,6 

4ADA 

AD7D03 

LDA 

$037D 



,60,96,3,129,192 

4ADD 

8D07 DO 

STA 

$D007 

4A75 03 FF CO 

.BYT 

3,255,192,7,126,224 

4AE0 

AD 7E 03 

LDA 

$037E 



,28,0,56,62,0 

4AE3 

8D09 DO 

STA 

$D009 

4A80 7C 33 00 

.BYT 

124,51,0,204,24,0,2 

4AE6 

AD 7F 03 

LDA 

$037F 



4,0,15,150,0,3 

4AE9 

8D OB DO 

STA 

$D00B 

; 



4AEC 

AD 80 03 

LDA 

$0380 

; 



4AEF 

8D OD DO 

STA 

$D00D 

4A8C 

*= 

$4A8C 

4AF2 

AD 81 03 

LDA 

$0381 




4AF5 

8D OF DO 

STA 

$D00F 

; this section contains all of the 



4AF8 

AD 41 03 

LDA 

$0341 

; main game routines. 



4AFB 

8D F8 07 

STA 

$Q7F8 




4AFE 

AD 42 03 

LDA 

$0342 




4B01 

8D F9 07 

STA 

$07F9 

; interrupt handler. 



4B04 

AD 43 03 

LDA 

$0343 

; this code is initialized in the 



4B07 

8D FA 07 

STA 

$07FA 

; routine insint, which sets up 



4B0A 

AD 44 03 

LDA 

$0344 

; the split-screen machinery. 



4B0D 

8D FB 07 

STA 

$07FB 




4B10 

AD 45 03 

LDA 

$0345 

4A8C 00 00 00 

LDY 

RASTER 

4B13 

8D FC 07 

STA 

$07FC 

4A8F A2 02 

LDX 

#2 

4B16 

AD 46 03 

LDA 

$0346 

; compare raster position to 



4B19 

8D FD 07 

STA 

$07FD 

; screen split point 



4B1C 

AD 47 03 

LDA 

$0347 

4A91 00 00 00 

CPY 

MYRAS1 

4B1F 

8D FE 07 

STA 

$07FE 

4A94 FO 07 

BED 

RASTA 

4B22 

AD 48 03 

LDA 

$0348 

; fudge a bit to minimize jitter 



4B25 

8D FF 07 

STA 

$07FF 

4A96 88 

DEY 


4B28 

AD 49 03 

LDA 

$0349 
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4B2B 

8D 27 DO 

STA 

$D027 

• _ 




4B2E 

AD 4A 03 

LDA 

$034A 

; clear sid chip and set it up 



4B31 

8D 28 DO 

STA 

SD028 

; for main game sound effects. 



4B34 

AD4B03 

LDA 

$034B 

; 




4B37 

8D 29 DO 

STA 

$D029 

4BEA 

SETSID 

= 

* 

4B3A 

AD4C03 

LDA 

$034C 

4BEA 

AO 00 

LDY 

#0 

4B3D 

8D2AD0 

STA 

$D02A 

4BEC 

A9 00 

LDA 

#0 

4B40 

AD 4D 03 

LDA 

$034D 

4BEE 

85 FB 

STA 

$FB 

4B43 

8D 2B DO 

STA 

$D02B 

4BF0 

A9D4 

LDA 

#$D4 

4B46 

AD 4E 03 

LDA 

$034E 

4BF2 

85 FC 

STA 

$FC 

4B49 

8D 2C DO 

STA 

$D02C 

4BF4 

A9 00 SIDZERO 

LDA 

#0 

4B4C 

AD4F 03 

LDA 

$034F 

4BF6 

91 FB 

STA 

($FB),Y 

4B4F 

8D 2D DO 

STA 

$D02D ' 

4BF8 

CO OF 

CPY 

#$0F 

4B52 

AD 50 03 

LDA 

$0350 

4BFA 

FO 04 

BEQ 

SIDDUN 

4B55 

8D 2E DO 

STA 

$D02E 

4BFC 

08 

INY 


4B58 

60 

RTS 


4BFD 

40 F4 4B 

JMP 

SIDZERO 

; 




4C00 

A9 OF SIDDUN 

LDA 

#$0F 

I— 




4C02 

8D 18 D4 

STA 

$D418 

; we’re below screen split. 



4C05 

A9 00 

LDA 

#0 

; transfer gator shadow registers 



4C07 

8D 17 D4 

STA 

$D417 

; into sprite control registers. 



4C0A 

A9 60 

LDA 

#$60 

; 




4C0C 

8D 05 D4 

STA 

$D405 

4B59 

AD 72 03 GTRSTUF 

LDA 

$0372 

4C0F 

A9 19 

LDA 

#$19 

4B5C 

8D01 DO 

STA 

$D001 

4C11 

8D 13 D4 

STA 

$D413 

4B5F 

AD 73 03 

LDA 

$0373 

4C14 

A9 OF 

LDA 

#$0F 

4B62 

8D03 DO 

STA 

$D003 

4C16 

8DOO D4 

STA 

$0400 

4B65 

AD 74 03 

LDA 

$0374 

4C19 

8D 07 D4 

STA 

$D407 

4868 

8D 05 DO 

STA 

$D005 

4C1C 

8D OE D4 

STA 

$D40E 

4B6B 

AD 75 03 

LDA 

$0375 

4C1F 

A9 OF 

LDA 

#$0F 

4B6E 

8D 07 DO 

STA 

$D007 

4C21 

8D 01 D4 

STA 

$D401 

4B71 

AD 76 03 

LDA 

$0376 

4C24 

A9 4F 

LDA 

#$4F 

4B74 

8D 09 DO 

STA 

$D009 

4C26 

8D 08 D4 

STA 

$D408 

4B77 

AD 77 03 

LDA 

$0377 

4C29 

A9 4F 

LDA 

#$4F 

4B7A 

8D OB DO 

STA 

$D00B 

4C2B 

8D OF D4 

STA 

$D40F 

4B7D 

AD 78 03 

LDA 

$0378 

4C2E 

A9 00 

LDA 

#0 

4B80 

8D OD DO 

STA 

$D00D 

4C30 

8D04 D4 

STA 

$D404 

4B83 

AD 79 03 

LDA 

$0379 

4033 

A9 00 

LDA 

#0 

4B86 

8D OF DO 

STA 

$D00F 

4C35 

8D OB D4 

STA 

$D40B 

4B89 

AD 51 03 

LDA 

$0351 

4C38 

A9 00 

LDA 

#0 

4B8C 

8D F8 07 

STA 

$07F8 

4C3A 

8D 12 D4 

STA 

$0412 

4B8F 

AD 52 03 

LDA 

$0352 

4C3D 

A9 00 

LDA 

#0 

4B92 

8D F9 07 

STA 

$07F9 

4C3F 

8D 06 D4 

STA 

$0406 

4B95 

AD 53 03 

LDA 

$0353 

4C42 

8D 0DD4 

STA 

$D40D 

4B98 

8D FA 07 

STA 

$07FA 

4045 

8D 14 D4 

STA 

$D414 

4B9B 

AD 54 03 

LDA 

$0354 

4048 

A9 60 

LDA 

#$60 

4B9E 

8D FB 07 

STA 

$07FB 

4C4A 

8D OC D4 

STA 

$D40C 

4BA1 

AD 55 03 

LDA 

$0355 

4C4D 

60 

RTS 



4BA4 

8D FC 07 

STA 

$07FC 





4BA7 

AD 56 03 

LDA 

$0356 

•— 




4BAA 

8D FD 07 

STA 

$07FD 

i sound 

effects, called at various 



4BAD 

AD 57 03 

LDA 

$0357 

; points 

in joystick rtn scnjoy. 



4BB0 

8D FE 07 

STA 

$07FE 





4BB3 

AD 58 03 

LDA 

$0358 

4C4E 

A9 60 S0UND1 

LDA 

#$60 

4BB6 

8D FF 07 

STA 

$07FF 

4050 

8D 05 D4 

STA 

$D405 

4BB9 

AD 59 03 

LDA 

$0359 

4053 

00 00 00 

LDA 

MYRAS2 

4BBC 

8D 27 DO 

STA 

$D027 

4056 

4A 

LSR 

A 

4BBF 

AD 5A 03 

LDA 

$035A 

4057 

4A 

LSR 

A 

4BC2 

8D 28 DO 

STA 

$0028 

4058 

4A 

LSR 

A 

4BC5 

AD 5B 03 

LDA 

$035B 

4059 

85 FB 

STA 

$FB 

4BC8 

8D 29 DO 

STA 

$D029 

4C5B 

A9 24 

LDA 

#$24 

4BCB 

AD 50 03 

LDA 

$0350 

4C5D 

E5 FB 

SBC 

$FB 

4BCE 

8D2AD0 

STA 

$D02A 

4C5F 

8D 01 D4 

STA 

$D401 

4BD1 

AD 5D 03 

LDA 

$035D 

4062 

A9 60 

LDA 

#$60 

4BD4 

8D 2B DO 

STA 

$0028 

4064 

8D 05 D4 

STA 

$D405 

4BD7 

AD 5E 03 

LDA 

$035E 

4067 

A9 20 

LDA 

#$20 

4BDA 

8D 20 DO 

STA 

$D02C 

4069 

8D04 D4 

STA 

$D404 

4BDD 

AD5F 03 

LDA 

$035F 

4C6C 

A9 21 

LDA 

#$21 

4BE0 

8D 2D DO 

STA 

$D02D 

4C6E 

8D04 D4 

STA 

$D404 

4BE3 

AD 60 03 

LDA 

$0360 

4071 

60 

RTS 


4BE6 

8D 2E DO 

STA 

$D02E 

• 




4BE9 

60 

RTS 


4072 

A9 60 S0UND2 

LDA 

#$60 

; 




4074 

8D OC D4 

STA 

$D40C 
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4C77 

00 00 00 

LDA 

MYRAS2 

4CF3 

A9 EO 

LDA 

#$E0 

4C7A 

4A 

LSR 

A 

4CF5 

8D OF D4 

STA 

$D40F 

4C7B 

4A 

LSR 

A 

4CF8 

A9 85 

LDA 

#$85 

4C7C 

4A 

LSR 

A 

4Cfft 

8D 12 D4 

STA 

$D412 

4C7D 

8D08 D4 

STA 

$D408 

4CFD 

A9 00 

LDA 

#0 

4C80 

A9 80 

LDA 

#$80 

4CFF 

00 00 00 

STA 

GATSCR 

4C82 

8D 0B D4 

STA 

$D40B 

4D02 

60 

RTS 


4C85 

A9 81 

LDA 

#$81 

j 




4C87 

8D 0B D4 

STA 

$D40B 

;— 




4C8A 

60 

RTS 


; a gator has clamped on the border. 


4C8B 

A9 2A S0UND3 

LDA 

#$2A 

4D03 

GATCLAMP 

= 

* 

4C8D 

8D 3C03 

STA 

$033C 

1 




4C90 

A9 10 

LDA 

#$10 

; turn eagles’ background 



4C92 

8D 12 D4 

STA 

$D412 

; orange, make a sound effect, 



4C95 

A9 15 

LDA 

#$15 

; make gators thrash with joy, 



4C97 

8D 12 D4 

STA 

$D412 

; turn eagles screen green again. 



4C9A 

60 

RTS 










4D03 

A9 09 

LDA 

#9 

4C9B 

A9 04 S0UND4 

LDA 

#4 

4D05 

00.00 00 

STA 

EAGSCR 

4C9D 

8D3C03 

STA 

$033C 

4D08 

A5 FB 

LDA 

$FB 

4GA0 

A9 10 

LDA 

#$10 

4D0A 

85 FD 

STA 

$FD 

4CA2 

8D 12 D4 

STA 

$D412 

4D0C 

A5 FC 

LDA 

$FC 

4CA5 

A9 15 

LDA 

#$15 

4D0E 

85 FE 

STA 

$FE 

4CA7 

8D 12 D4 

STA 

$D412 

4D10 

98 

TW 


4CAA 

60 

RTS 


4D11 

8D 3D 03 

STA 

$033D 





4D14 

A9 10 

LDA 

#$10 

■_ 




4D16 

8D 12 D4 

STA 

$D412 

; an eagle has clamped on the border 


4D19 

A9 15 

LDA 

#$15 





4D1B 

8D 12 D4 

STA 

$D412 

4GAB 

EGLCLAMP 

= 

* 

4D1E 

A2 18 

LDX 

#$18 





4D20 

A9 08 

LDA 

#8 

; turn opponent’s background 



4D22 

8D OF D4 

STA 

$D40F 

; orange, make a sound effect, 



4D25 

20 75 4D GWIGMOR 

JSR 

GATWIGL 

; make the eagles thrash with joy, 



4D28 

8A 

TXA 


; turn gators' screen black again. 



4D29 

8D 3E 03 

STA 

$033E 

; 




4D2C 

OA 

ASL 

A 

4CAB 

A9 09 

LDA 

#9 

4D2D 

OA 

ASL 

A 

4CAD 

00 00 00 

STA 

GATSCR 

4D2E 

EA 

NOP 


4CB0 

A5FB 

LDA 

$FB 

4D2F 

EA 

NOP 


4CB2 

85 FD 

STA 

$FD 

4D30 

8D 08 D4 

STA 

$D408 

4CB4 

A5FC 

LDA 

$FC 

4D33 

AO 12 

LDY 

#$12 

4CB6 

85 FE 

STA 

$FE 

4D35 

20 5B 4D 

JSR 

DELAY 

4CB8 

98 

m 


4D38 

AD 3E 03 

LDA 

$033E 

4CB9 

8D 3D 03 

STA 

$033D 

4D3B 

AA 

TAX 


4CBC 

A9 10 

LDA 

#$10 

4D3C 

CA 

DEX 


4CBE 

8D 12 D4 

STA 

$D412 

4D3D 

DO E6 

BNE 

GWIGMOR 

4CC1 

A9 15 

LDA 

#$15 

4D3F 

AD 3D 03 

LDA 

$033D 

4CC3 

8D 12 D4 

STA 

$D412 

4D42 

A8 

TAY 


4CC6 

A2 1F 

LDX 

#$1F 

4D43 

A5 FD 

LDA 

$FD 

4CC8 

A9 00 

LDA 

#0 

4D45 

85 FB 

STA 

$FB 

4CCA 

8D OF D4 

STA 

$D40F 

4D47 

A5 FE 

LDA 

$FE 

4CCD 

20 97 4D EWIGMOR 

JSR 

EGLWIGL 

4D49 

85 FC 

STA 

$FC 

4CD0 

8A 

TXA 


4D4B 

A9 EO 

LDA 

#$E0 

4CD1 

8D 3E 03 

STA 

$033E 

4D4D 

8D OF D4 

STA 

$D40F 

4CD4 

OA 

ASL 

A 

4D50 

A9 15 

LDA 

#$15 

4CD5 

OA 

ASL 

A 

4D52 

8D 12 D4 

STA 

$D412 

4CD6 

OA 

ASL 

A 

4D55 

A9 03 

LDA 

#3 

4CD7 

OA 

ASL 

A 

4D57 

00 00 00 

STA 

EAGSCR 

4CD8 

8D OF D4 

STA 

$D40F 

4D5A 

60 

RTS 


4CDB 

AO 12 

LDY 

#$12 





4CDD 

20 5B 4D 

JSR 

DELAY 

; does what the name implies 



4CE0 

AD 3E 03 

LDA 

$033E 

4D5B 

CO 00 DELAY 

CPY 

#0 

4CE3 

AA 

TAX 


4D5D 

FO 15 

BEQ 

DEL5 

4CE4 

CA 

DEX 


4D5F 

CO 01 

CPY 

#1 

4CE5 

DO E6 

BNE 

EWIGMOR 

4D61 

DO 03 

BNE 

DELI 

4CE7 

AD 3D 03 

LDA 

$033D 

4D63 

4C 6F 4D 

JMP 

DEL3 

4CEA 

A8 

TAY 


4D66 

88 DELI 

DEY 


4CEB 

A5FD 

LDA 

$FD 

4D67 

A2C6 

LDX 

#$C6 

4CED 

85 FB 

STA 

$FB 

4D69 

CA DEL2 

DEX 


4CEF 

A5FE 

LDA 

$FE 

4D6A 

DO FD 

BNE 

DEL2 

4CF1 

85 FC 

STA 

$FC 

4D6C 

88 

DEY 
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4D6D 

DO EC 

BNE 

DELAY 

4DD7 

C9 00 

CMP 

#0 

4D6F 

A2 C3 DEL3 

LDX 

#$C3 

4DD9 

DO 61 

BNE 

ECHKEXIT 

4D71 

CA DEL4 

DEX 


4DDB 

AO 00 

LDY 

#0 

4D72 

DO FD 

BNE 

DEL4 

4DDD 

B1 FB 

LDA 

($FB),Y 

4D74 

60 DEL5 

RTS 


4DDF 

C9 00 

CMP 

#0 

; 




4DE1 

FO 43 

BEQ 

EPUTBAK 

; — 




4DE3 

A5FB 

LDA 

$FB 

; cycle all gator sprite shapes 



4DE5 

38 

SEC 


; 




4DE6 

E9 10 

SBC 

#$10 

4D75 

A9 41 GATWIGL 

IDA 

#$41 

4DE8 

85 FB 

STA 

$FB 

4077 

85 FB 

STA 

$FB 

4DEA 

AO 00 

LDY 

#0 

4D79 

A9 03 

LDA 

#3 

4DEC 

B1 FB 

LDA 

($FB),Y 

4078 

85 FC 

STA 

SFC 

4DEE 

18 

CLC 


4D7D 

AO 00 

LDY 

#0 

4DEF 

69 19 

ADC 

#$19 

4D7F 

B1 FB GATWIG2 

LDA 

($FB),Y 

4DF1 

oooooo • 

CMP 

MYRAS2 

4D81 

C9F1 

CMP 

#$F1 

4DF4 

BO 03 

BCS 

ECLAMPIT 

4083 

FO 08 

BEQ 

GATWIG3 

4DF6 

4C 31 4E 

JMP 

EREPUT 

4D85 

18 

CLC 


4DF9 

20 AB 4C ECLAMPIT 

JSR 

EGLCLAMP 

4D86 

69 01 

ADC 

#1 

4DFC 

oooooo 

LDA 

MYRAS2 

4D88 

91 FB 

STA 

($FB),Y 

4DFF 

38 

SEC 


4D8A 

4C 91 4D 

JMP 

GATWIG4 

4E00 

E9 17 

SBC 

#$17 

4D8D 

A9 E4 GATWIG3 

LDA 

#$E4 

4E02 

91 FB 

STA 

($FB),Y 

4D8F 

91 FB 

STA 

($FB),Y 

4E04 

A5FB 

LDA 

$FB 

4D91 

C8 GATWIG4 

INY 


4E06 

18 

CLC 


4092 

CO 08 

CPY 

#8 

4E07 

69 10 

ADC 

#$10 

4D94 

DO E9 

BNE 

GATWIG2 

4E09 

85 FB 

STA 

$FB 

4D96 

60 

RTS 


4E0B 

A9 00 

LDA 

#0 

; 




4E0D 

91 FB 

STA 

($FB) Y 

; — 




4E0F 

A5FB 

LDA 

$FB 

; cycle all eagle sprite shapes 



4E11 

18 

CLC 


; 




4E12 

69 08 

ADC 

#8 

4097 

A9 51 EGLWIGL 

LDA 

#$51 

4E14 

85 FB 

STA 

$FB 

4099 

85 FB 

STA 

$FB 

4E16 

B1 FB 

LDA 

($FB),Y 

4D9B 

A9 03 

LDA 

#3 

4E18 

C9 0Q 

CMP 

#0 

4D9D 

85 FC 

STA 

$FC 

4E1A 

FO 03 

BEQ 

ESTAT 

4D9F 

AO 00 

LDY 

#0 

4E1C 

4C 3C 4E 

JMP 

ECHKEXIT 

4DA1 

B1 FB EGLWIG2 

LDA 

($FB),Y 

4E1F 

A9 FF ESTAT 

LDA 

#$FF 

4DA3 

C9FF 

CMP 

#$FF 

4E21 

91 FB 

STA 

($FB),Y 

4DA5 

FO 08 

BEQ 

EGLWIG3 

4E23 

4C 3C 4E 

JMP 

ECHKEXIT 

4DA7 

18 

CLC 


4E26 

A5 FB EPUTBAK 

LDA 

$FB 

4DA8 

69 01 

ADC 

#1 

4E28 

38 

SEC 


4DAA 

91 FB 

STA 

($FB),Y 

4E29 

E9 10 

SBC 

#$10 

4DAC 

4C B3 4D 

JMP 

EGLWIG4 

4E2B 

85 FB 

STA 

$FB 

4DAF 

A9 F2 EGLWIG3 

LDA 

#$F2 

4E2D 

A9 25 

LDA 

#$25 

4DB1 

91 FB 

STA 

($FB),Y 

4E2F 

91 FB 

STA 

($FB) Y 

4DB3 

C8 EGLWIG4 

INY 


4E31 

A5 FB EREPUT 

LDA 

$FB ’ 

4DB4 

CO 08 

CPY 

#8 

4E33 

18 

CLC 


4DB6 

DO E9 

BNE 

EGLWIG2 

4E34 

69 10 

ADC 

#$10 

4DB8 

AO 08 

LDY 

#8 

4E36 

85 FB 

STA 

$FB 

4DBA 

EE 3C 03 EGLWIG5 

INC 

$033C 

4E38 

A9 01 

LDA 

#1 

4DBD 

AD3C03 

LDA 

$033C 

4E3A 

91 FB 

STA 

($FB),Y 

4DC0 

80 OF D4 

STA 

$D40F 

4E3C 

60 ECHKEXIT 

RTS 


4DC3 

88 

DEY 






4DC4 

DO F4 

BNE 

EGLWIG5 

•— 




4DC6 

60 

RTS 


4E3D 

GBORCHEK 

= 

* 





; handle gator border stuff, come here 


; — 




; when you’re pressing gator fire button. 


; eagle border check, come here 



; check if you're in clamping distance, 


when you press eagle fire button. 


; handle cases where you’re already 


check if you’re in clamping distance, 


; clamped or there’s an eagle across 


; handle cases where you’re already 


; the border from you. 



clamped or where there's a gator 


4E3D 




; across the border from you. 



AD 6E 03 

LDA 

$036E 





4E40 

18 

CLC 


4DC7 

EBORCHEK 

= 

* 

4E41 

69 41 

ADC 

#$41 

4DC7 

AD6C03 

LDA 

S036C 

4E43 

85 FB 

STA 

$FB 

4DCA 

18 

CLC 


4E45 

AD6F 03 

LDA 

$036F 

4DCB 

69 29 

ADC 

#$29 

4E48 

85 FC 

STA 

$FC 

4DCD 

85 FB 

STA 

$FB 

4E4A 

AD6A03 

LDA 

$036A 

4DCF 

A0 6D03 

LDA 

$0360 

4E4D 

C9 00 

CMP 

#0 

4DD2 

85 FC 

STA 

$FC 

4E4F 

DO 61 

BNE 

GCHKEXIT 

4004 

AD 67 03 

LDA 

$0367 

4E51 

AO 00 

LDY 

#0 
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4E53 

B1 FB 

LDA 

($FB),Y 

4ED2 

C9 59 

CMP 

#$59 

4E55 

C9 00 

CMP 

#0 

4ED4 

FO OA 

BEQ 

EFLA2 

4E57 

FO 43 

BEQ 

GPUTBAK 

4ED6 

C6 FB 

DEC 

$FB 

4E59 

A5FB 

LDA 

$FB 

4ED8 

A5 FB 

LDA 

$FB 

4E56 

38 

SEC 


4EDA 

8D6C03 

STA 

$036C 

4E5C 

E9 10 

SBC 

#$10 

4EDD 

4C 07 4F 

JMP 

EFLA5 

4E5E 

85 FB 

STA 

$FB 

4EE0 

A9 60 EFLA2 

LDA 

#$60 

4E60 

AO 00 

LDY 

#0 

4EE2 

85 FB 

STA 

$FB 

4E62 

B1 FB 

LDA 

($FB),Y 

4EE4 

8D6C03 

STA 

$036C 

4E64 

38 

SEC 


4EE7 

4C 07 4F 

JMP 

EFLA5 

4E65 

E9 08 

SBC 

#8 

4EEA 

AO 00 EFLA3 

LDY 

#0 

4E67 

00 00 00 

CMP 

MYRAS2 

4EEC 

A9 00 

LDA 

#0 

4E6A 

90 03 

BCC 

GCLAMPIT 

4EEE 

91 FB 

STA 

($FB),Y 

4E6C 

4C A7 4E 

JMP 

GREPUT 

4EF0 

A5FB 

LDA 

$FB 

4E6F 

00 00 00 GCLAMPIT 

LDA 

MYRAS2 

4EF2 

C9 60 

CMP 

#$60 

4E72 

18 

CLC 


4EF4 

FO OA 

BEQ 

EFLA4 

4E73 

69 05 

ADC 

#5 

4EF6 

E6 FB 

INC 

$FB 

4E75 

91 FB 

STA 

($FB),Y 

4EF8 

A5 FB 

LDA 

$FB 

4E77 

20 03 4D 

JSR 

GATCLAMP 

4EFA 

8D 6C 03 

STA 

$036C 

4E7A 

A5FB 

LDA 

$FB 

4EFD 

4C 07 4F 

JMP 

EFLA5 

4E7C 

18 

CLC 


4F00 

A9 59 EFLA4 

LDA 

#$59 

4E7D 

69 10 

ADC 

#$10 

4F02 

85 FB 

STA 

$FB 

4E7F 

85 FB 

STA 

$FB 

4F04 

8D 6C03 

STA 

$036C 

4E81 

A9 00 

LDA 

#0 

4F07 

AD 70 03 EFLA5 

LDA 

$0370 

4E83 

91 FB 

STA 

($FB) Y 

4F0A 

C9 11 

CMP 

#$11 

4E85 

A5FB 

LDA 

$FB ' 

4F0C 

DO 05 

BNE 

EFLA6 

4E87 

38 

SEC 


4F0E 

A9 0C 

LDA 

#$0C 

4E88 

E9 08 

SBC 

#8 

4F10 

8D 70 03 

STA 

$0370 

4E8A 

85 FB 

STA 

$FB 

4F13 

EE 70 03 EFLA6 

INC 

$0370 

4E8C 

B1 FB 

LDA 

($FB),Y 

4F16 

AD 70 03 

LDA 

$0370 

4E8E 

C9 00 

CMP 

#0 

4F19 

91 FB 

STA 

($FB),Y 

4E90 

FO 03 

BEQ 

GSTAT 

; do same for gators 



4E92 

4C B2 4E 

JMP 

GCHKEXIT 

4F1B 

AD 6E 03 

LDA 

$036E 

4E95 

A9 01 GSTAT 

LDA 

#1 

4F1E 

85 FB 

STA 

$FB 

4E97 

91 FB 

STA 

($FB),Y 

4F20 

AD 6F 03 

LDA 

$036F 

4E99 

4C B2 4E 

JMP 

GCHKEXIT 

4F23 

85 FC 

STA 

$FC 

4E9C 

A5 FB GPUTBAK 

LDA 

$FB 

4F25 

AD 64 03 

LDA 

$0364 

4E9E 

38 

SEC 


4F28 

C9 FF 

CMP 

#$FF 

4E9F 

E9 10 

SBC 

#$10 

4F2A 

FO 06 

BEQ 

GFLA1 

4EA1 

85 FB 

STA 

$FB 

4F2C 

C9 01 

CMP 

#1 

4EA3 

A9F7 

LDA 

#$F7 

4F2E 

FO 22 

BEQ 

GFLA3 

4EA5 

91 FB 

STA 

($FB),Y 

4F30 

DO 3D 

BNE 

GFLA5 

4EA7 

A5 FB GREPUT 

LDA 

$FB 

4F32 

AO 00 GFLA1 

LDY 

#0 

4EA9 

18 

CLC 


4F34 

A9 0D 

LDA 

#$0D 

4EAA 

69 10 

ADC 

#$10 

4F36 

91 FB 

STA 

($FB) Y 

4EAC 

85 FB 

STA 

$FB 

4F38 

A5FB 

LDA 

$FB ’ 

4EAE 

A9 FF 

LDA 

#$FF 

4F3A 

C9 49 

CMP 

#$49 

4EB0 

91 FB 

STA 

($FB),Y 

4F3C 

FO OA 

BEQ 

GFLA2 

4EB2 

60 GCHKEXIT 

RTS 


4F3E 

C6 FB 

DEC 

$FB 





4F40 

A5 FB 

LDA 

$FB 

; — 




4F42 

8D 6E 03 

STA 

$036E 

; control creature colors. 



4F45 

4C 6F 4F 

JMP 

GFLA5 

; make the creature currently 



4F48 

A9 50 GFLA2 

LDA 

#$50 

; under control of the joystick 



4F4A 

85 FB 

STA 

$FB 

; flash colors. 



4F4C 

8D 6E 03 

STA 

$036E 

J 




4F4F 

4C 6F 4F 

JMP 

GFLA5 

4EB3 

FLASHIT 

= 

* 

4F52 

AO 00 GFLA3 

LDY 

#0 

; do eagles first 



4F54 

A9 0D 

LDA 

#$0D 

4EB3 

AD 6C 03 

LDA 

$036C 

4F56 

91 FB 

STA 

($FB),Y 

4EB6 

85 FB 

STA 

$FB 

4F58 

A5FB 

LDA 

$FB 

4EB8 

AD 6D 03 

LDA 

$036D 

4F5A 

C9 50 

CMP 

#$50 

4EBB 

85 FC 

STA 

$FC 

4F5C 

FO OA 

BEQ 

GFLA4 

4EBD 

AO 00 

LDY 

#0 

4F5E 

E6 FB 

INC 

$FB 

4EBF 

AD 65 03 

LDA 

$0365 

4F60 

A5 FB 

LDA 

$FB 

4EC2 

C9FF 

CMP 

#$FF 

4F62 

8D 6E 03 

STA 

$036E 

4EC4 

FO 06 

BEQ 

EFLA1 

4F65 

4C6F 4F 

JMP 

GFLA5 

4EC6 

C9 01 

CMP 

#1 

4F68 

A9 49 GFLA4 

LDA 

#$49 

4EC8 

FO 20 

BEQ 

EFLA3 

4F6A 

85 FB 

STA 

$FB 

4ECA 

DO 3B 

BNE 

EFLA5 

4F6C 

8D 6E 03 

STA 

$036E 

4ECC 

A9 00 EFLA1 

LDA 

#0 

4F6F 

AD 71 03 GFLA5 

LDA 

$0371 

4ECE 

91 FB 

STA 

($FB),Y 

4F72 

C9 09 

CMP 

#9 

4ED0 

A5 FB 

LDA 

$FB 

4F74 

DO 05 

BNE 

GFLA6 
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4F76 

A9 03 

LDA 

#3 

4FFD 38 

SEC 


4F78 

8D71 03 

STA 

$0371 

4FFE E9 41 

SBC 

#$41 

4F7B 

EE 71 03 6FLA6 

INC 

$0371 

5000 85 FB 

STA 

$FB 

4F7E 

AD 71 03 

LDA 

$0371 

5002 A9 0D 

LDA 

#$0D 

4F81 

91 FB 

STA 

($FB),Y 

$03A8 

5004 91 FB 

STA 

4F83 

ADAS 03 

LDA 

5006 A5FB 

LDA 

i $ FB B),V 

4F86 

F0 04 

BEQ 

ECOL 

5008 18 

CLC 


4F88 

CEA8 03 

DEC 

$03A8 

5009 69 41 

ADC 

#$41 

4F8B 

60 

RTS 


500B 85 FB 

STA 

$FB 

; color eagles black if moving 



500D 4CF2 4F 

JMP 

GC0L2 

; or blue if clamped to border. 



; 



4F8C 

A9 03 EC0L 

LDA 

#3 

;— 



4F8E 

8DA8 03 

STA 

$03A8 

; move eagles up or down between 


4F91 

A9 82 

LDA 

#$82 

; screen split and top of screen. 



4F93 

85 FB 

STA 

$FB 



4F95 

A9 03 

LDA 

#3 

5010 EGLMOVE 

= 

* 

4F97 

85 FC 

STA 

$FC 

5010 A9 82 

LDA 

#$82 

4F99 

A0 00 

LDY 

#0 

5012 85 FB 

STA 

$FB 

4F9B 

B1 FB EC0L1 

LDA 

($FB),Y 

5014 A9 03 

LDA 

#3 

4F9D 

C9 00 

CMP 

#0 

5016 85 FC 

STA 

$FC 

4F9F 

DO 1A 

BNE 

ECOL3 

5018 A9 72 

LDA 

#$72 

4FA1 

A5FB 

LDA 

$FB 

501A 85 FD 

STA 

$FD 

4RA3 

38 

SEC 


501C A9 03 

LDA 

#3 

4BA 

E9 29 

SBC 

#$29 

501E 85 FE 

STA 

$FE 

4m 

85 FB 

STA 

$FB 

; do all 8 eagles 



4fA8 

A9 06 

LDA 

#6 

5020 AO 00 

LDY 

#0 

Am 

91 FB 

STA 

($FB),Y 

$FB 

; check eagle’s direction 



4FAC 

A5FB 

LDA 

5022 B1 FB EUDCHK 

LDA 

($FB),Y 

4FAE 

18 

CLC 


; is it moving down 


4FAF 

69 29 

ADC 

#$29 

5024 C9FF 

CMP 

#$FF 

4FB1 

85 FB 

STA 

$FB 

5026 FO 06 

BEQ 

EMVDN 

4FB3 

CO 07 ECOL2 

CPY 

#7 

; is it moving up 

5028 C9 01 



4FB5 

F0 19 

BEQ 

GCOL 

CMP 

#1 

4FB7 

C8 

INY 


502A FO 26 

BEQ 

EMVUP 

4FB8 

4C 9B 4F 

JMP 

ECOL1 

; guess it’s clamped- next one 



4FBB 

A5 FB EC0L3 

LDA 

$FB 

502C DO IB 

BNE 

EMWLL 

4FBD 

38 

SEC 


502E B1 FD EMVDN 

LDA 

($FD),Y 

4FBE 

E9 29 

SBC 

#$29 

5030 18 

CLC 

4FC0 

85 FB 

STA 

$FB 

5031 69 17 

ADC 

#$17 

4FC2 

A9 00 

LDA 

#0 

; will eagle hit lower border of 



4FC4 

91 FB 

STA 

($FB),Y 

; its zone if it moves down 



4FC6 

A5FB 

LDA 

$FB 

5033 00 00 00 

CMP 

MYRAS2 

4FC8 

18 

CLC 


5036 BO OA 

BCS 

EDNHIT 

4FC9 

69 29 

ADC 

#$29 

; ok to move, add one to vertical 



4FCB 

85 FB 

STA 

$FB 

; position for this eagle 



4FCD 

4CB3 4F 

JMP 

ECOL2 

5038 B1 FD 

LDA 

($FD),Y 

; color gators light green if moving 


503A 18 

CLC 

; or white if clamped to border. 



503B 69 01 

ADC 

#1 

4FD0 

A9 8A GCOL 

LDA 

#$8A 

503D 91 FD 

STA 

($FD),Y 

4FD2 

85 FB 

STA 

$FB 

503F 4C 49 50 

JMP 

EMVALL 

4FD4 

A9 03 

LDA 

#3 

; hit border, make sound effect 



4FD6 

85 FC 

STA 

$FC 

5042 20 C2 50 EDNHff 

JSR 

EBRDSND 

4FD8 

A0 00 

LDY 

#0 

; reverse direction flag. 1=up 
5045 A9 01 



4FDA 

B1 FB GCOL1 

LDA 

($FB),Y 

LDA 

#1 

4FDC 

C9 00 

CMP 

#0 

5047 91 FB 

STA 

($FB),Y 

4FDE 

DO IB 

BNE 

GC0L3 

5049 CO 07 EMVALL 

CPY 

#7 

4FE0 

A5FB 

LDA 

$FB 

504B FO 04 

BEQ 

EMVDUT 

4FE2 

38 

SEC 

504D C8 

INY 


4FE3 

E9 41 

SBC 

#$41 

504E 4C 22 50 

JMP 

EUDCHK 

4FE5 

85 FB 

STA 

$FB 

5051 60 EMWUT 

RTS 


4FE7 

A9 01 

LDA 

#1 

; eagle is moving up. check upper 



4FE9 

4FEB 

91 FB 

A5FB 

STA 

LDA 

r B B) ' v 

; boundary 

5052 B1 FD EMVUP 

LDA 

sr 

4FED 

18 

CLC 


5054 C9 1E 

CMP 

4FEE 

69 41 

ADC 

#$41 

5056 90 OA 

BCC 

EUPHIT 

4FF0 

85 FB 

STA 

$FB 

; ok to move up one pixel. 



4FF2 

CO 07 GC0L2 

CPY 

#7 

5058 B1 FD 

LDA 

($FD),Y 

4FF4 

FO 04 

BEQ 

GCOLOUT 

505A 38 

SEC 

4FF6 

C8 

INY 


505B E9 01 

SBC 

#1 

4FF7 

4CDA4F 

JMP 

GCOL1 

505D 91 FD 

STA 

($FD),Y 

4FFA 

60 GCOLOUT 

RTS 


505F 4C 49 50 

JMP 

EM\ALL 

4FFB 

A5 FB GC0L3 

LDA 

$FB 

; hit upper border, reverse direction 





n 


Chapter 3 









n 

5062 A9 FF EUPHIT 

LDA 

#$FF 





R 

5064 91 FB 

STA 

($FB),Y 50C2 

A9 10 EBRDSND 

LDA 

#$10 


5066 4C 49 50 

JMP 

EMWLL 50C4 

8D OC D4 

STA 

$D40C 




50C7 

A9 45 

LDA 

#$45 

n 

•_ 


50C9 

8D08 D4 

STA 

$D408 

; move gators up or down between 

50CC 

A9 80 

LDA 

#$80 


: screen split and bottom of screen 

50CE 

8D OB D4 

STA 

$D40B 




50D1 

A9 81 

LDA 

#$81 

n 

5069 GATMOVE 

= 

* 50D3 

8D 0BD4 

STA 

$D40B 

i > 

5069 A9 8A 

LDA 

#$8A 50D6 

60 

RTS 



506B 85 FB 

STA 

$FB 






506D A9 03 

LDA 

#3 

— 





506F 85 FC 

STA 

$FC 

sounc 

of gator hitting border 




5071 A9 7A 

LDA 

#$7A 






5073 85 FD 

STA 

$FD 

50D7 

A9 24 GBRDSND 

LDA 

#$24 


5075 A9 03 

LDA 

#3 

50D9 

8D 05 D4 

STA 

$D405 


5077 85 FE 

STA 

$FE 

50DC 

A9 2F 

LDA 

#$2F 


; do all eight gators 


50DE 

8D 01 D4 

STA 

$D401 


5079 AO 00 

LDY 

#0 

50E1 

A9 10 

LDA 

#$10 


; check gator’s direction 


50E3 

8D04 D4 

STA 

$D404 


507B B1 FB GUDCHK 

LDA 

($FB),Y 

50E6 

A9 11 

LDA 

#$11 


; is it moving down 


50E8 

8D04 D4 

STA 

$D404 


507D C9FF 

CMP 

#$FF 

50EB 

60 

RTS 



507F FO 06 

BEQ 

GMVDN 






; is it moving up 



— 





5081 C9 01 

CMP 

#1 

scan both joysticks, store 




5083 FO IF 

BEQ 

GMVUP 

direction and button values, and 




; it's clamped 



handle joystick-related sound effects. 



5085 DOM 

BNE 

GMWLL 

50EC 

00 00 00 SCNJOY 

LDA 

JOY1 


; will gator hit bottom of screen 


50EF 

AO 00 

LDY 

#0 


; if it moves down 


50F1 

A2 00 

LDX 

#0 


5087 B1 FD GMVDN 

LDA 

($FD),Y 

50F3 

4A 

LSR 

A 


5089 C9FB 

CMP 

#$FB 

50F4 

BO 01 

BCS 

SCNJ02 


508B BO OA 

BCS 

GDNHIT 

50F6 

88 

DEY 



; ok to move down, add one to vertical 

50F7 

4A SCNJ02 

LSR 

A 


; position for this gator. 


50F8 

BO 01 

BCS' 

SCNJ03 


508D B1 FD 

LDA 

($FD),Y 

50FA 

C8 

INY 



508F 18 

CLC 

50FB 

4A SCNJ03 

LSR 

A 


5090 69 01 

ADC 

#1 

50FC 

BO 01 

BCS 

SCNJ04 


5092 91 FD 

STA 

($FD),Y 

50FE 

CA 

DEX 



5094 4C9B50 

JMP 

GMVALL 

50FF 

4A SCNJ04 

LSR 

A 


; hit bottom, reverse direction. 


5100 

BO 01 

BCS 

SCNJ05 


5097 A9 01 GDNHIT 

LDA 

#1 

5102 

E8 

INX 



5099 91 FB 

STA 

($FB),Y 

5103 

4A SCNJ05 

LSR 

A 


509B CO 07 GMWLL 

CPY 

#7 

5104 

8E 66 03 

STX 

$0366 


509D FO 04 

BEQ 

GMVDUT 

5107 

2A 

ROL 

A 


509F C8 

INY 


5108 

29 01 

AND 

#1 


50A0 4C7B50 

JMP 

GUDCHK 

51 OA 

8D 68 03 

STA 

$0368 


50A3 60 GMVDUT 

RTS 

51OD 

00 00 00 

LDA 

JOY2 


; gator is moving up. check if it 


5110 

AO 00 

LDY 

#0 


; has hit screen split yet 


5112 

A2 00 

LDX 

#0 


50A4 B1 FD GMVUP 

LDA 

($FD),Y 

5114 

4A 

LSR 

A 


50A6 38 

SEC 

5115 

BO 01 

BCS 

SCNJ06 . 


50A7 E9 06 

SBC 

#6 

5117 

88 

DEY 



50A9 00 00 00 

CMP 

MYRAS2 

5118 

4A SCNJ06 

LSR 

A 


50AC 90 OA 

BCC 

GUPHIT 

5119 

BO 01 

BCS 

SCNJ07 

r ~i 

; ok to move up. subtract one from 


511B 

C8 

INY 


(_ i 

; vertical position for this gator. 



511C 

4A SCNJ07 

LSR 

A 


50AE B1 FD 

LDA 

($FD),Y 

511D 

BO 01 

BCS 

SCNJ08 

n 

50B0 38 

SEC 


511F 

CA 

DEX 


50B1 E9 01 

SBC 

#1 

5120 

4A SCNJ08 

LSR 

A 


50B3 91 FD 

STA 

($FD),Y 

5121 

BO 01 

BCS 

SCNJ09 


50B5 4C9B50 

JMP 

GMVALL 

5123 

E8 

INX 


n 

; hit screen border, make sound effect. 


5124 

4A SCNJ09 

LSR 

A 

50B8 20 D7 50 GUPHIT 

JSR 

GBRDSND 

5125 

8E 69 03 

STX 

$0369 


; reverse direction flag. 255=down. 


5128 

2A 

ROL 

A 


50BB A9FF 

LDA 

#$FF 

5129 

29 01 

AND 

#1 

i ! 

50BD 91 FB 

STA 

($FB),Y 

512B 

8D 6B 03 

STA 

$0368 


50BF 4C9B50 

JMP 

GMVALL 

512E 

AD 68 03 

LDA 

$0368 





5131 

C9 00 

CMP 

#0 

n 

;— 



5133 

DO 11 

BNE 

SCNJQA 

; sound of eagle hitting border 



5135 

AD 67 03 

LDA 

$0367 









n 
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5138 

09 00 

CMP 

#0 

; pushing border on each side. 



513A 

0012 

BNE 

SCNJOB 

; move border up or down accordingly, 


513C 

AD AB 03 

LDA 

$03AB 

; along with all clamped creatures. 


513F 

09 FF 

CMP 

#$FF 

; check if either side has won. 



5141 

FOOB 

BED 

SCNJOB 

; 




5143 

EE AB03 

INC 

$03AB 

51E7 

HUZAHED 

= 

* 

5146 

A9 01 SCNJQA 

LDA 

#1 

51E7 

A9 82 

LDA 

#$82 

5148 

8D 67 03 

STA 

$0367 

51E9 

85 FB 

STA 

$FB 

514B 

40 50 51 

JMP 

SCNJOC 

51EB 

A9 03 

LDA 

#3 

514E 

20 9B 40 SCNJOB 

JSR 

S0UND4 

51 ED 

85 FC 

STA 

$FC 

5151 

A9 00 

LDA 

#0 

51EF 

A9 00 

LDA 

#0 

5153 

8DAB03 

STA 

$03AB 

51 FI 

8D9A03 

STA 

$039A 

5156 

AD 68 03 

LDA 

$0368 

51F4 

AO 00 

LDY 

#0 

5159 

80 67 03 

STA 

$0367 

51F6 

B1 FB ECONT 

LDA 

($FB),Y 

5150 

AD 6B 03 SCNJOC 

LDA 

$036B 

51F8 

C9 00 

CMP 

#0 

515F 

09 00 

CMP 

#0 

51 FA 

DO 03 

BNE 

ECONTALL 

5161 

0011 

BNE 

SCNJOD 

51FC 

EE9A03 

INC 

$039A 

5163 

AD6A03 

LDA 

$036A 

51 FF 

CO 07 ECONTALL 

CPY 

#7 

5166 

09 00 

CMP 

#0 

5201 

FO 04 

BEQ 

GCONT 

5168 

0012 

BNE 

SCNJOE 

5203 

C8 

INY 


516A 

AD AC 03 

LDA 

$03AC 

5204 

4C F6 51 

JMP 

ECONT 

516D 

09 FF 

CMP 

#$FF 

5207 

A9 8A GCONT 

LDA 

#$8A 

516F 

FOOB 

BEQ 

SCNJOE 

5209 

85 FB 

STA 

$FB 

5171 

EE AC 03 

INC 

$03AC 

520B 

A9 03 

LDA 

#3 

5174 

A9 01 SCNJOD 

LDA 

#1 

520D 

85 FC 

STA 

$FC 

5176 

8D 6A 03 

STA 

$036A 

520F 

A9 00 

LDA 

#0 

5179 

4C 8A 51 

JMP 

SCNJOF 

5211 

8D 9B 03 

STA 

$039B 

517C 

20 8B 4C SCNJOE 

JSR 

S0UND3 

5214 

AO 00 

LDY 

#0 

517F 

A9 00 

LDA 

#0 

5216 

B1 FB GCONT1 

LDA 

($FB),Y 

5181 

8DAC03 

STA 

$03AC 

5218 

C9 00 

CMP 

#0 

5184 

AD SB 03 

LDA 

$0363 

521A 

DO 03 

BNE 

GCONTALL 

5187 

8D6A03 

STA 

$036A 

521C 

EE 9B03 

INC 

$039B 

518A 

AD 66 03 SCNJOF 

LDA 

$0366 

521F 

CO 07 GCONTALL 

CPY 

#7 

518D 

09 00 

CMP 

#0 

5221 

FO 04 

BEQ 

HUMORE 

518F 

FO 11 

BEQ 

SCNJ10 

5223 

C8 

INY 


5191 

AD 65 03 

LDA 

$0365 

5224 

4C 16 52 

JMP 

GCONT1 

5194 

C9 00 

CMP 

#0 





5196 

FO 12 

BEQ 

SCNJ11 

; compare number of creatures 



5198 

AD AD 03 

LDA 

$03AD 

; pushing on both sides. 



519B 

09 01 

CMP 

#1 

; 




519D 

FO OB 

BEQ 

SCNJ11 

5227 

AD 9B 03 HUMORE 

LDA 

$0398 

519F 

EE AD 03 

INC 

$03AD 

522A 

CD9A03 

CMP 

$039A 

51A2 

A9 00 SCNJ10 

LDA 

#0 

522D 

90 6D 

BCC 

EWINCHK 

51A4 

8D 65 03 

STA 

$0365 

; if sides are equal, don’t move border. 


51A7 

4CB8 51 

JMP 

SCNJ12 

522F 

FO 6A 

BEQ 

HUZDUN 

51AA 

20 72 40 SCNJ11 

JSR 

S0UND2 





51 AO 

A9 00 

LDA 

#0 

; gators are pushing border upward. 


51AF 

8D AD 03 

STA 

$03AD 

; check if they’ve won yet. 



51B2 

AD 66 03 

LDA 

$0366 

5231 




51B5 

8D 65 03 

STA 

$0365 

GWINCHK 

= 

* 

51B8 

AD 69 03 SCNJ12 

LDA 

$0369 

5231 

00 00 00 

LDA 

MYRAS2 

51BB 

09 00 

CMP 

#0 

5234 

C9 3E 

CMP 

#$3E 

51BD 

FO 11 

BEQ 

SCNJ13 

5236 

DO 03 

BNE 

UPSPLIT 

51BF 

AD 64 03 

LDA 

$0364 

5238 

4C8B53 

JMP 

GATWON 

51C2 

09 00 

CMP 

#0 

; haven't won, move border up a line. 


51C4 

FO 12 

BEQ 

SCNJ14 

523B 

38 UPSPLIT 

SEC 


5108 

AD AE 03 

LDA 

$03AE 

523C 

E9 01 

SBC 

#1 

5109 

09 01 

CMP 

#1 

523E 

00 00 00 

STA 

MYRAS2 

51CB 

FOOB 

BEQ 

SCNJ14 

; move clamped eagles upward 



51 CD 

EE AE03 

INC 

$03AE 

; along with border. 



5100 

A9 00 SCNJ13 

LDA 

#0 

5241 

A9 82 

LDA 

#$82 

51D2 

8D 64 03 

STA 

$0364 

5243 

85 FB 

STA 

$FB 

5105 

40 E6 51 

JMP 

SCNJ15 

5245 

A9 03 

LDA 

#3 

5108 

20 4E 40 SCNJ14 

JSR 

S0UND1 

5247 

85 FC 

STA 

$FC 

51DB 

A9 00 

LDA 

#0 

5249 

AO 00 

LDY 

#0 

51DD 

8DAE03 

STA 

$03AE 

524B 

B1 FB UPEGL 

LDA 

($FB),Y 

51EO 

AD 69 03 

LDA 

$0369 

524D 

C9 00 

CMP 

#0 

51E3 

8D 64 03 

STA 

$0364 

524F 

DO 15 

BNE 

UPEGALL 

51E6 

60 SCNJ15 

RTS 


5251 

A5 FB 

LDA 

$FB 





5253 

38 

SEC 






5254 

E9 10 

SBC 

#$10 

; check how many creatures are 



5256 

85 FB 

STA 

$FB 
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5258 B1 FB 

LDA 

($FB),Y 

52CA 

A5 FB 

LDA 

$FB 

525A 38 

SEC 

52CC 

18 

CLC 


525B E9 01 

SBC 

#1 

52CD 

69 10 

ADC 

#$10 

525D 91 FB 

STA 

($FB),Y 

52CF 

85 FB 

STA 

$FB 

525F A5FB 

LDA 

$FB ’ 

52D1 

CO 07 DNEAG1 

CPY 

#7 

5261 18 

CLC 


52D3 

FO 04 

BEQ 

DNGAT 

5262 69 10 

ADC 

#$10 

52D5 

C8 

INY 


5264 85 FB 

STA 

$FB 

52D6 

4C B6 52 

JMP 

DNEAG 

5266 CO 07 UPEGALL 

CPY 

#7 

; move 

clamped gators downward 



5268 FO 04 

BEQ 

UPGAT 

; along with the border. 



526A C8 

INY 


52D9 

A9 8A DNGAT 

LDA 

#$8A 

526B 4C4B52 

JMP 

UPEGL 

52DB 

85 FB 

STA 

$FB 

; move clamped gators upward 



52DD 

A9 03 

LDA 

#3 

; along with border 



52DF 

85 FC 

STA 

$FC 

526E A9 8A UPGAT 

LDA 

#$8A 

52E1 

AO 00 

LDY 

#0 

5270 85 FB 

STA 

$FB 

52E3 

B1 FB DNGAT1 

LDA 

($FB),Y 

5272 A9 03 

LDA 

#3 

52E5 

C9 00 

CMP 

#0 

5274 85 FC 

STA 

$FC 

52E7 

DO 15 

BNE 

DNGATALL 

5276 AO 00 

LDY 

#0 

52E9 

A5 FB 

LDA 

$FB 

5278 B1 FB UPGAT1 

LDA 

($FB),Y 

52EB 

38 

SEC 


527A C9 00 

CMP 

#0 

52EC 

E9 10 

SBC 

#$10 

527C DO 15 

BNE 

UPGTALL 

52EE 

85 FB 

STA 

$FB 

527E A5FB 

LDA 

$FB 

52F0 

B1 FB 

LDA 

($FB),Y 

5280 38 

SEC 


52F2 

18 

CLC 

5281 E9 10 

SBC 

#$10 

52F3 

69 01 

ADC 

#1 

5283 85 FB 

STA 

$FB 

52F5 

91 FB 

STA 

($FB),Y 

5285 B1 FB 

LDA 

($FB),Y 

52F7 

A5 FB 

LDA 

$FB 

5287 38 

SEC 

52F9 

18 

CLC 


5288 E9 01 

SBC 

#1 

52FA 

69 10 

ADC 

#$10 

528A 91 FB 

STA 

($FB),Y 

$FB 

52FC 

85 FB 

STA 

$FB 

528C A5FB 

LDA 

52FE 

CO 07 DNGATALL 

CPY 

#7 

528E 18 

CLC 


5300 

FO 04 

BEQ 

XDNSPL 

528F 69 10 

ADC 

#$10 

5302 

C8 

INY 


5291 85 FB 

STA 

$FB 

5303 

4C E3 52 

JMP 

DNGAT1 

5293 CO 07 UPGTALL 

CPY 

#7 

5306 

60 XDNSPL 

RTS 


5295 FO 04 

BEQ 

HUZDUN 





5297 C8 

INY 






5298 4C 78 52 

JMP 

UPGAT1 

; eagles have won. clear screen, 



529B 60 HUZDUN 

RTS 


; make expanded eagle move down 





; the screen, do sound effects. 



; eagles are pushing the border 
; down, see if they’ve won yet. 



5307 

EGLWON 

= 

* 



5307 

A9 60 

LDA 

#$60 



5309 

8D OC D4 

STA 

$D40C 

529C EWINCHK 

= 

* 

530C 

8D 05 D4 

STA 

$D405 

529C 00 00 00 

LDA 

MYRAS2 

530F 

A9 00 

LDA 

#0 

529F C9E8 

CMP 

#$E8 

5311 

8D 5C 03 

STA 

S035C 

52A1 DO 03 

BNE 

DNSPLIT 

5314 

A9 20 

LDA 

#$20 

52A3 4C 07 53 

JMP 

EGLWON 

5316 

8D 75 03 

STA 

$0375 

; eagles haven’t won yet. move 



5319 

A9 FF 

LDA 

#$FF 

; the border down one line. 



531B 

8D 85 03 

STA 

$0385 

52A6 18 DNSPLIT 

CLC 


531E 

A9FA 

LDA 

#$FA 

52A7 69 01 

ADC 

#1 

5320 

00 00 00 

STA 

MYRAS2 

52A9 00 00 00 

STA 

MYRAS2 

5323 

A9 08 

LDA 

#8 

; move clamped eagles downward 



5325 

00 00 00 

STA 

ENABLE 

; along with border 



5328 

A9 08 

LDA 

#8 

52AC A9 82 

LDA 

#$82 

532A 

00 00 00 

STA 

XEXPAN 

52AE 85 FB 

STA 

$FB 

532D 

00 00 00 

STA 

YEXPAN 

52B0 A9 03 

LDA 

#3 

5330 

A9 5C 

LDA 

#$5C 

52B2 85 FC 

STA 

$FC 

5332 

8D AF 03 

STA 

$Q3AF 

52B4 AO 00 

LDY 

#0 

5335 

A9 10 EGLWN1 

LDA 

#$10 

52B6 B1 FB DNEAG 

LDA 

($FB),Y 

5337 

8D 04 D4 

STA 

$D404 

52B8 C9 00 

CMP 

#0 

533A 

A9 15 

LDA 

#$15 

52BA DO 15 

BNE 

DNEAG1 

533C 

8D04 D4 

STA 

$D404 

52BC A5FB 

LDA 

$FB 

533F 

AD 3D 03 

LDA 

$033D 

52BE 38 

SEC 


5342 

8D OF D4 

STA 

$D40F 

52BF E9 10 

SBC 

#$10 

5345 

AD 75 03 

LDA 

$0375 

52C1 85 FB 

STA 

$FB 

5348 

8D 01 D4 

STA 

$D401 

52C3 B1 FB 

LDA 

($FB),Y 

534B 

20 97 4D 

JSR 

EGLWIGL 

52C5 18 

CLC 

534E 

20 10 50 

JSR 

EGLMOVE 

52C6 69 01 

ADC 

#1 

5351 

20 10 50 

JSR 

EGLMOVE 

52C8 91 FB 

STA 

($FB),Y 

5354 

AO 40 

LDY 

#$40 
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5356 

20 5B 4D 

JSR 

DELAY 

53F9 

AD 3D 03 

LDA 

$033D 

5359 

AD AF 03 

LDA 

$03AF 

53FC 

DO 06 

BNE 

GATW0N4 

535C 

C9 01 

CMP 

#1 

53FE 

CE 3D 03 

DEC 

$033D 

535E 

F0 06 

BEQ 

EGLWIN2 

5401 

4CF4 53 

JMP 

GATW0N3 

5360 

CE AF 03 

DEC 

$03AF 

5404 

A9 00 GATW0N4 

LDA 

#0 

5363 

4C 35 53 

JMP 

EGLWN1 

5406 

00 00 00 

SlA 

YEXPAN 

5366 

A9 00 EGLWIN2 

LDA 

#0 

5409 

00 00 00 

STA 

XEXPAN 

5368 

00 00 00 

STA 

ENABLE 


game 

ended with gator victory. 



536B 

A9FF 

LDA 

#$FF 

; pick skill level for next qame. 



536D 

8D 3D 03 

STA 

$033D 

540C 

00 00 00 

JMP 

PIKSKL 

5370 

A0 FF EGLWIN3 

LDY 

#$FF 






5372 

20 5B 4D 

JSR 

DELAY 






5375 

AD 3D 03 

LDA 

$033D 




_ 


5378 

DO 06 

BNE 

EGLWIN4 


main qame loop 



537A 

CE 3D 03 

DEC 

$0330 


_ 

_ 



537D 

4C 70 53 

JMP 

EGLWIN3 






; sprites back to normal size 








5380 

A9 00 EGLWIN4 

LDA 

#0 

540F 

MAINLOOP 

= 

* 

5382 

00 00 00 

STA 

YEXRAN 

540F 

AC3F03 

LDY 

$033F 

5385 

00 00 00 

STA 

XEXPAN 

5412 

A9 0A 

LDA 

#$0A 

; game ended with eagle victory. 



5414 

8D 3F 03 

STA 

$033F 

; pick skill level for next game. 



5417 

CE 3F 03 LOOP1 

DEC 

$033F 

5388 

00 00 00 

JMP 

PIKSKL 

541A 

88 

DEY 


; 




541B 

DORA 

BNE 

LOOP1 

I— 




541D 

AD AO 03 LOOP2 

LDA 

$03A0 

; gators have won. make sound effect 


5420 

C9 3C 

CMP 

#$3C 

; while expanded gator moves from 


5422 

FO 06 

BEQ 

L00P3 

; bottom to top of screen. 



5424 

EE AO 03 

INC 

S03A0 

; 




5427 

4C 3B54 

JMP 

L00P4 

538B 

GATWON 

S3 

* 

542A 

20 EC 50 L00P3 

JSR 

SCNJOY 

538B 

A9 15 

LDA 

#$15 

542D 

20 C7 4D 

JSR 

EBORCHEK 

538D 

8D 13 D4 

STA 

$D413 

5430 

20 3D 4E 

JSR 

GBORCHEK 

5390 

8D 05 D4 

STA 

SD405 

5433 

20 B3 4E 

JSR 

FLASHIT 

5393 

A9 0D 

LDA 

#$0D 

5436 

A9 00 

LDA 

#0 

5395 

8D 4C 03 

STA 

$034C 

5438 

8D AO 03 

STA 

$03A0 

5398 

A9E0 

LDA 

#$E0 

543B 

AD A1 03 L00P4 

LDA 

$03A1 

539A 

8D 7D 03 

STA 

$037D 

543E 

C9 OF 

CMP 

#$0F 

539D 

A9 01 

LDA 

#1 

5440 

FO 06 

BEQ 

LOOP5 

539F 

8D 8D 03 

STA 

$038D 

5442 

EE A1 03 

INC 

$03A1 

53A2 

A9 1C 

LDA 

#$1C 

5445 

4C 53 54 

JMP 

LOOP6 

53A4 

00 00 00 

STA 

MYRAS2 

5448 

20 10 50 LQOP5 

JSR 

EGLMOVE 

53A7 

A9 08 

LDA 

#8 

544B 

20 69 50 

JSR 

GATMOVE 

53A9 

00 00 00 

STA 

ENABLE 

544E 

A9 00 

LDA 

#0 

53AC 

A9 08 

LDA 

#8 

5450 

8D A1 03 

STA 

$03A1 

53AE 

00 00 00 

STA 

XEXPAN 

5453 

AD A2 03 LOOP6 

LDA 

$03A2 

53B1 

00 00 00 

STA 

YEXPAN 

5456 

C9 IE 

CMP 

#$1E 

53B4 

A9 5C 

LDA 

#$5C 

5458 

FO 06 

BEQ 

L00P7 

53B6 

8D AF 03 

STA 

$03AF 

545A 

EE A2 03 

INC 

$03A2 

53B9 

A9 10 GATW0N1 

LDA 

#$10 

545D 

4C 6B54 

JMP 

LOOP8 

53BB 

8D 12 D4 

STA 

$D412 

5460 

20 75 4D L00P7 

JSR 

GATWIGL 

53BE 

A9 15 

LDA 

#$15 

5463 

20 97 4D 

JSR 

EGLWIGL 

53C0 

8D 12 D4 

STA 

$D412 

5466 

A9 00 

LDA 

#0 

53C3 

AD 3D 03 

LDA 

$033D 

5468 

8DA2 03 

STA 

$03A2 

53C6 

8D 01 D4 

STA 

$D401 

546B 

AD A3 03 LOOP8 

LDA 

$03A3 

53C9 

AD7D03 

LDA 

$037D 

546E 

C9FF 

CMP 

#$FF 

53CC 

8D OF D4 

STA 

$D40F 

5470 

FO 06 

BEQ 

L00P9 

53CF 

20 75 4D 

JSR 

GATWIGL 

5472 

EE A3 03 

INC 

$03A3 

53D2 

20 69 50 

JSR 

GATMOVE 

5475 

4C 80 54 

JMP 

LOOPIO 

5305 

20 69 50 

JSR 

GATMOVE 

5478 

20 E7 51 L00P9 

JSR 

HUZAHED 

53D8 

AO 40 

LDY 

#$40 

547B 

A9 00 

LDA 

#0 

53DA 

20 5B 4D 

JSR 

DELAY 

547D 

8D A3 03 

STA 

$03A3 

53DD 

AD AF 03 

LDA 

$03AF 

5480 

AE 3F 03 LOOPIO 

LDX 

$033F 

53E0 

C9 01 

CMP 

#1 

5483 

AO 18 L00P11 

LDY 

#$18 

53E2 

FO 06 

BEQ 

GATWON2 

5485 

88 L00P12 

DEY 


53E4 

CE AF 03 

DEC 

$03AF 

5486 

DO FD 

BNE 

L00P12 

53E7 

4CB9 53 

JMP 

GATWON1 

5488 

CA 

DEX 


53EA 

A9 00 GATW0N2 

LDA 

#0 

5489 

DO F8 

BNE 

LOOP11 

53EC 

00 00 00 

STA 

ENABLE 

548B 

4C ID 54 

JMP 

L00P2 

53EF 

A9 FF 

LDA 

#$FF 






53F1 

8D 3D 03 

STA 

$033D 






53F4 

AO FF GATW0N3 

LDY 

#$FF 






53F6 

20 5B 4D 

JSR 

DELAY 
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How to Type In 
Programs 


In order to make it as easy as possible to type in the programs 
in this book, we've induded two program-entry aids written in 
BASIC: "The Automatic Proofreader" and "MLX." To assist 
you in understanding how to enter these programs, COM¬ 
PUTE! has established the following listing conventions. 

Generally, BASIC program listings like the one for MLX 
contain words within braces which spell out any spedal char¬ 
acters: {DOWN} means to press the cursor-down key; {5 
SPACES} means to press the space bar five times. 

To indicate that a key should be shifted (pressed while 
you're holding down the SHIFT key), the key is underlined in 
our listings. For example, S means to type the S key while 
holding down the SHIFT key. This will appear on your screen 
as a heart symbol. If you find an underlined key endosed in 
braces—for example, {10 N}—you should type the key as 
many times as indicated. In that case, you would enter ten 
shifted N's. If a key is enclosed in special brackets, [<>], you 
should hold down the Commodore key while pressing the key 
inside the spedal brackets. (The Commodore key is the key in 
the lower left comer of the keyboard.) Again, if the key is pre¬ 
ceded by a number, you should press the key as many times 
as indicated; for example, [<9@>] means to type Commodore- 
@ nine times. 

Refer to the following table when entering cursor- and 
color-control keys: 
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Keyboard Conventions 


When You 
Read: 


Press: 

See: 

(CLR) 

SHIFT 

CLR/HOME | 

{HOME} 



CLR/HOME |gj 

{UP} 

SHIFT 

t CRSR J 

: □ 

{DOWN} 



ITcrsrT] E 

{LEFT} 

[shift [—crsr—J ||| 

{RIGHT} 



♦— CRSR —*| Q 

{RVS} 

CTRL 

CX] 

m 

{OFF} 


CTRL 

1 0 

■ 

{BLK} 


CTRL 

1 

■ 

{WHT} 


CTRL 

2 

m 

{RED} 


CTRL 

3 

0 

{CYN} 


CTRL 

4 

U 

{PUR} 


CTRL 

5 

m 

{GRN} 


CTRL 

6 

□ 

{BLU} 


CTRL 

7 

m 

{YEL} 


CTRL 

8 

so 


When You 


Read: 

Press: See: 

i 1 3 

COMMODORE | [7] ^ 

§20 

COMMODORE | |T] g 


COMMODORE | [7] 

g 4 3 

COMMODORE | [7] O 

gsi 

COMMODORE | | 5 | Q 

i *3 

COMMODORE | | r| || 

g 

COMMODORE | | f] Q 

g >a 

COMMODORE | | i] J ” 

{ FI ) 

a | s 

{ F2 } 

SHIFT fl 21 

{ F3 } 

is g 

{ F4 } 

SHIFT f3 |B 

{ F5 } 

■ m 

{ F6 } 

SHIFT f5 B| 

{ F7 } 

- n 

{ F8 } 

SHIFT f7 |BB 

4 

1^.1 S 
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The Automatic 
Proofreader 

Philip I. Nelson 


“The Automatic Proofreader” helps you type in 
program listings for the Commodore 64 and 128, 
and prevents nearly every kind of typing mistake. 


U 

u 

U 

u 

u 

u 


Type in the “Proofreader" exactly as listed. Since the program 
can't check itself, type carefully to avoid mistakes. Don't omit 
any lines, even if they contain unfamiliar commands. After 
you've finished, save a copy or two on disk or tape before 
running it. This is important because the Proofreader erases 
the BASIC portion of itself when you run it, leaving only the 
machine language portion in memory. 

Next, type RUN and press RETURN. After announcing 
which computer it's running on, the Proofreader displays the 
message Proofreader Active. Now you're ready to type in a 
BASIC program. 

Two Letters 

Every time you finish typing a line and press RETURN, the 
Proofreader displays a two-letter checksum in the upper left 
comer of the screen. Compare this result with the two-letter 
checksum printed to the left of the line in the program listing. 


The one program in this book that can be used in con¬ 
junction with the Proofreader is “MLX: Machine Language 
Entry Program," which is found in Chapter 2. Make sure 
you use the Proofreader to type in MLX, since it is vital 
that you have the latter program entered correctly. If 
there is an error in MLX, you will not be able to type in 
any of the seven machine language games in this book. 


If the letters match, it's almost certain the line was typed 
correctly. If the letters don't match, check for your mistake 
and correct the line. 
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What It Does, What It Doesn’t 

The Proofreader ignores spaces not enclosed in quotation marks, 
so you can omit or add spaces between keywords and still see 
a matching checksum. However, since spaces inside quotation 
marks are almost always significant, the Proofreader pays at¬ 
tention to them. For example, 10 PRINT"THIS IS BASIC" 
generates a different checksum than does 10 PRINT"THIS 
ISBA SIC". 

A common typing error is transposition—typing two 
successive characters in the wrong order, like PIRNT instead 
of PRINT or 64378 instead of 64738. The Proofreader is sensi¬ 
tive to the position of each character within the line and thus 
catches transposition errors. 

The Proofreader does not accept keyword abbreviations 
(for example, ? instead of PRINT). If you prefer to use abbrevia¬ 
tions, you can still check the line by LISTing it after typing it in, 
moving the cursor back to the line, and pressing RETURN. 
LISTing the line substitutes the full keyword for the abbrevia¬ 
tion and allows the Proofreader to work properly. The same 
technique works for rechecking programs you've already typed 
in. 

If you're using the Proofreader on the Commodore 128, 
do not perform any GRAPHIC commands while the Proofreader is 
active. When you perform a command like GRAPHIC 1, the 
computer moves everything at the start of BASIC program 
space—including the Proofreader—to another memory area, 
causing the Proofreader to crash. The same thing happens if 
you run any program with a GRAPHIC command while the 
Proofreader is in memory. 

Though the Proofreader doesn't interfere with other 
BASIC operations, it's a good idea to disable it before running 
another program. However, the Proofreader is purposely diffi¬ 
cult to dislodge: It's not affected by tape or disk operations, or 
by pressing RUN/STOP-RESTORE. The simplest way to dis¬ 
able it is to turn the computer off, then on. A gentler method 
is to SYS to the computer's built-in reset routine (SYS 65341 
for the 128; 64738 for the 64). These reset routines erase any 
program in memory, so be sure to save the program you're 
typing in before entering the SYS command. 

If you own a Commodore 64, you may already have won¬ 
dered whether the Proofreader works with other programming 
utilities like "MetaBASIC." The answer is, generally, yes, if 
you're using a 64 and activate the Proofreader after installing the 
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other utility. For example, first load and activate MetaBASIC; 
then load and run the Proofreader. 

When using the Proofreader with another utility, you 
should disable both programs before running a BASIC pro¬ 
gram. While the Proofreader seems unaffected by most utili¬ 
ties, there's no way to promise that it will work with any and 
every combination of utilities you might want to use. The 
more utilities activated, the more fragile the system becomes. 

The Automatic Proofreader 

Read Appendix A before entering this program. 

10 VEC=PEEK(772)+256*PEEK(7?73):LO=43:HI=44 
20 PRINT"lCLR}{WHT}AUTOMATIC PROOFREADER FOR ";:IF 
VEC=42364 THEN PRINT "C-64" 

30 IF VEC=50556 THEN PRINT "VIC-20{BLU}" 

40 IF VEC=35158 THEN GRAPHIC CLRsPRINT "PLUS/4 & 1 
6" 

50 IF VEC=17165 THEN LO=45:HI=46sGRAPHIC CLR:PRINT 
"128{WHT}" 

60 SA=(PEEK(LO)+256*PEEK(HI))+6:ADR=SA 
70 FOR J=0 TO 166;READ BYTsPOKE ADR,BYT:ADR=ADR+1: 
CHK=CHK+BYT s NEXT 

80 IF CHKO20570 THEN PRINT "*ERROR* CHECK TYPING 
{SPACE}IN DATA STATEMENTSEND 
90 FOR J=1 TO 5:READ RF,LF,HFsRS=SA+RF;HB=INT(RS/2 
56);LB=RS-(256*HB) 

100 CHK=CHK+RF+LF+HF:POKE SA+LF,LB:POKE SA+HF,HBsN 
EXT 

110 IF CHK<>22054 THEN PRINT "*ERROR* RELOAD PROGR 
AM AND CHECK FINAL LINE":END 
120 POKE SA+149,PEEK(772):POKE SA+150,PEEK(773) 

130 IF VEC=17165 THEN POKE SA+14,22:POKE SA+18,23: 

POKESA+29,224:POKESA+139,224 
140 PRINT CHR$(147);CHR$(17);"PROOFREADER ACTIVE": 
SYS SA 

150 POKE HI,PEEK(HI)+1:POKE (P?EEK(LO)+256*PEEK(HI) 
)-1,0:NEW 

160 DATA 120,169,73,141,4,3,169,3,141,5,3 
170 DATA 88,96,165,20,133,167,165,21,133,168,169 
180 DATA 0,141,0,255,162,31,181,199,157,227,3 
190 DATA 202,16,248,169,19,32,210,255,169,18,32 
200 DATA 210,255,160,0,132,180,132,176,136,230,180 
210 DATA 200,185,0,2,240,46,201,34,208,8,72 
220 DATA 165,176,73,255,133,176,104,72,201,32,208 
230 DATA 7,165,176,208,3,104,208,226,104,166,180 
240 DATA 24,165,167,121,0,2,133,167,165,168,105 
250 DATA 0,133,168,202,208,239,240,202,165,167,69 
260 DATA 168,72,41,15,168,185,211,3,32,210,255 
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270 DATA 104,74,74,74,74,168,185,211,3,32,210 
280 DATA 255,162,31,189,227,3,149,199,202,16,248 
290 DATA 169,146,32,210,255,76,86,137,65,66,67 
300 DATA 68,69,70,71,72,74,75,77,80,81,82,83,88 
310 DATA 13,2,7,167,31,32,151,116,117,151,128,129, 
167,136,137 



To order your copy of COMPUTEI's More Machine Lan¬ 
guage Games for the Commodore 64 Disk, call our toll-free 
US order line: 1-800-346-6767 (in NY 212-887-8525) or send 
your prepaid order to: 

COMPUTEI's More Machine Language Games 

for the Commodore 64 Disk 

COMPUTE! Publications 

P.O. Box 5038 

F.D.R. Station 

New York, NY 10150 

All orders must be prepaid (check, charge, or money order). NC 
residents add 5% sales tax. NY residents add 8.25% sales tax. 

Send _ copies of COMPUTEI's More Machine Language 

Games for the Commodore 64 Disk at $12.95 per copy. 

(947BDSK) 

Subtotal $_ 


Shipping and Handling: $2.00/disk $. 


Sales tax (if applicable) $. 


Total payment enclosed $. 


□ Payment enclosed 

□ Charge □ Visa □ MasterCard □ American Express 


Acct. No. _ Exp. Date —-- 

(Required) 


Name __ 

Address_ 

City_State_Zip 


Pleas© allow 4-5 weeks for delivery. 
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More Amazing Games 

Creating computer arcade-style games isn't easy. That's espe¬ 
cially true of games that have everything—speed, great play ac¬ 
tion, and a high entertainment value. Only with machine 
language (ML), the native language of your computer, can all 
this be achieved. 

You'll find seven games in this book. All are written entirely 
in machine language. 

• Space Arena puts you in a futuristic shoving match where the 
slightest mistake means your spaceship is twisted metal. 

• Saloon Shootout lets you blast mugs, plink at mice, and plug 
playing cards in a game for shootists of all ages. 

• Prisonball puts you in a world where bricks and balls come 
and go, furiously. 

• Q-Bird makes you responsible for a defenseless baby bluebird 
who's the entree for a flock of hungry predators. 

• Bump-N-Run may make friends into enemies as you and an 
opponent catch, steal, and shoot a ball. 

• Ringside Karate has everything you need to kick, jab, punch, 
and block your way to a black belt. 

• Eagles and Gators is a constant struggle between eagles and al¬ 
ligators with 16 sprites and clever animation. 

All seven games are ready to type in with our machine language 
entry program, "MLX." You don't have to know anything about 
machine language. 

But if you're interested in—or already know how to program 
in—ML, More Machine Language Games offers the complete 
source code for each game, just as it was written by the original 
programmer. You can learn a great deal by studying these excep¬ 
tional programs. 

We've even included a complete (and fast) machine lan¬ 
guage assembler —a program that helps you write in machine 
language. 

Seven fast-action arcade games. Illuminating source code. 

An assembler. If you like games, like to program in ML, or both, 
COMPUTEl's More Machine Language Games for the Commodore 
64 is the book for you. 

All games run on the Commodore 64 and Commodore 128 (in 64 mode). 

All the programs in this book are also available on a companion disk. See coupon in the back 
for details. 


ISBN 0-87455-094-7 


